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1.0 ABSTRACT 





are PTE PE SPST 1 PR oi 
Sut ao ERecTAtOR. PRUTS, "ROGLTIONR. PRCLLITIES Main Tie 





ee arta cee te oe He 
PROGRAM AS "Bose trace WHILE TRYING TO KEEP THE CONTROL SCHEME SIMPLE. 


nee op RENOS TEE RoR ues ap S:GNeD TO RUN IN 4K OR LESS OF MEMORY 
e ° 










2.0 REQUIREMENTS 








THIS ee ITTEN TO RUN ON eu. MODELS OF _ THE pet 
PR OR WI 1 NTER USI T 





2.2 STORAGE 


HIG PROGRAM USES MOST OF YK OF MEMORY WITHOUT AFFECTING THE AREA USED 
BY THE ASSOLU 2 









&.3 PRELIMINARY PROGRAMS 








an k Bee ng MOLE POP-11 DIAGNOSTICS SHOULD BE RUN SUCCESSFULLY ON THE 












3.0 LOADING PROCEDURE $ INITIALIZATION 
LOAD THE LAISO DIAGNOSTIC PROGRAM FOLLOWING NORMAL PROCEDURES. 


SSOP AU GEE OS AUF falta PE OE 
nO iat Cia Er mee 


REFER TO THE TEST ADDRESS TABLE IN THE PROGRAM LISTING FOR DETAILS ON 
st ine. | THE PRINTING TEST SEQUENCE OR DELETING TESTS FROM THE 








%.0 STARTING PROCEDURES 
STARTING ADDRESSES: 
200 = 






TART: 
Fu PEBRTOR INTERVENTION TESTS THEN ENTER PRINTING TEST 





600 = RESTAR 
ENTER PRINTING TEST SEQUENCE DIRECTLY SKIPPING OPERATOR 
INTERVENTION TESTS. 


£04 = 9 precy TO CONSOLE TERMINAL KEYBOARD CONTROL - SELECT 






STARTING AT 200 WILL RUN THE ENTIRE DIAGNOSTIC PACKAGE 
TRO 


* FIRST EWEN MERE TION TESTS AND THEN ENTER THe 
ci Tale ILL SKI ha att INTERVENTION ested os 
5 GO CONSOLE KE 


3s du 
THE PRI QUENCE DIRECTLY. STARTING A WILL 
Pre cpan T Wie tains Y 10 YBOARD CON 
EXISTS OTHERWISE, THE PROGRAM WILL HALT LT WAITING OR A TEST 
OM THE SWITCH’REGISTER. ALSO, BY PLAC THE HALT AN 
SWITCH UP (1) BEF ORE STARTING THE’ Dinchostic, pin OSTI 
att F E REGI 


Tene OR ST SELECTION FROM 
ALIZATION OF THE PROGRAM. 


70 START THE DIAGNOSTIC PROGRAM: SET THE DESIRED STARTING ADDRESS IN 
THE SWITCH REGISTER Aig. DEPRESS LOAD ADDRESS, SET THE SuITCH REGISTER 
oP aS SECTION 5.1), AND DEPRESS STA THE 
BIAGNOSTIC PROGRAM WILL NOW RUN IN THE MANNER SELECTED. 







5.0 - OPERATING PROCEDURES 


5.1 SWITCH REGISTER CONTROLS 


THE re eine BASIC ee FUNCTIONS ARE AVAILABLE THROUGH 


we, ten ert HE aE OD 


SWIT TCH 
re ot CHES 
WILL" 


OF LBcaTION 176 AS 


FOL 


SWITCH REGISTER. . REFER TO SECTION §.3 FOR DETAILS ON be ett 


SWITCH 


07-00 


os-00 


06-90 


in ee ee 


POSITION 


FUNCTION 


STOP ON ERROR 
CONTINUE ON ERROR 


LOOP ON TEST 
NORMAL OPERATION 


INHIBIT TYPEOUT 
NORMAL ObERAT ION 


MANUAL TIMING - OVER ALL 
PRINT SPEED TIMING 


BELL ON ERROR 
NORMAL OPERATION 


SINGLE CHAR - SCOPE ROUTINE 
FULL LINES 


HALT & SELECT TEST 
NORMAL OPERATION 


& COLUMNS AT START UP. 


TEST SELECTION DURING DIAG. 


CHAR SELECTION FOR SCOPE ROUTINE 


SEQ 000s 





GOl 
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5.1.1 SWITCH 1S - STOP ON ERROR 


Se THIS SWITCH on a he say or WILL HALT OR WAIT FOR A KEYBOARD 
ont peret 7: N DOWN (0), The PROGRAM WILL CONTINUE ON 
OR IF TBL 


5.1.2 SWITCH 14 - LOOP ON TEST 


WITH THIS Tee TCH ai (1), THE PROGRAM WILL rn, 


T UNTT NB) Poe SWITCH IS 75 PLACED Dow 

1S Thee, penTCR 10, TO He ESI WILL we" 
BN OF re SNA URRENT TEST. 

te Is DOMN “h)° THE PROGRAM WILL CONTINUE RORNAL HOBERATION 


THE 
AF wen RETURNING 
R THIS 


5.1.3 SWITCH 13 - INHIBIT ERROR TYPEOUT 
WHENEVER THIS SWITCH IS IN THE UP (1) POSITION, ERROR TYPEOUTS WILL 
NOT OCCUR. : 


5.1.4 SWITCH 11 - MANUAL TIMING eee 


THIS SWITCH WILL BE USED TO MANUALLY TIME THE OVERALL PRINT SPEED OF 
| THE LRI8O PRINTER IF A CLOCK OPTION DOES NOT EXIST. 


5.1.5 SWITCH 10 - BELL ON ERROR 
PLACING THIS SWITCH UP (1> WILL CAUSE THE CONSOLE (IF AVAILABLE) 19 


| Ba aren. BELL WHENEVER AN ERROR CONDITION IS DETECTED IN THE LA1SO 


5.1.6 SWITCH 9 - SINGLE CHAR/FULL LINES CHAR 


ys ae WILL BE USED TO SELECT WHETHER TO SEND ONLY SINGLE 
an Oo FULL LINES OF CHARACTERS TO THE LA180 PRINTER DURING TEST 


0 











5.1.7? SWITCH 8 - HALT 8 SELECT TEST 
THE PROGRAM WILL HA T WHENEVER T TH s SUITCH Is PERCED IN he ae Oe ab : } 
poet tion IN THE PROCESSOR aur ten REEISTE a smog 


TO ae THE NORMAL TEST SEQUENCE WITH THE SELECTED TEST, PLACE THE 
HALT AND SELECT TEST SWITCH DOWN (0) THEN DEPRESS THE CONTINUE SWITCH. 


Sure UP C1) AND DEPRESS CONTIIUE.” The’ PROGRAn WILL EXECUTE Of 


Be rep TERT ITI 
ete sia ALS Pa URING EXECUTION OF Tie, SELECTED TEET, 
TION OF THE CURRENT mete a AND WAIT FOR 
ie veh ber" SELEn i 


$.1.8 SELECTION OF NUMBER OF COLUMNS 
THESE SWITCHES WILL BE USED WHEN THE PROGRAM IS FI 


RUreeR Sev fut 


SET LINTTS" PROGRAR OLUMNS. 
THUS, LEAV THE PROGRAM WILL AUTOMATICALLY 


TEST FULL 132(10) COLUMNS. 


5.1.9 TEST SELECTION 


THESE SWITCHES WILL BE USED TO SELECT'A DESIRED TEST WHENEVER THE HALT 
AND SELECT TEST SWITCH IS USED TO HALT THE DIAGNOSTIC PROGRAM. 


O1 
é 


PAGE 











5.2 CONSOLE TERMINAL - KEYBOARD — 


EGE TF ARUN A SALE Ey Tt 
See ole Rr icttt Sennen Rese Ete SE 
ILL CAUSE Ege Pm GRAM TO STOP AND PRINT 


FOLLOWING MESSAGE ON THE CONSOLE DE 


SELECT TEST 2: 
TYPE ANY LEGAL TEST NUNBER FOLLOWED BY ONE OF THE FOLLOWING CONTROL 
a — 
. (PERIOD) RUN TEST ONCE $ RETURN TO TEST SELECTION 
LOOP ON SELECTED TEST } 
s START SEQUENCE WITH SELECTED TEST 


To RESET THE HE DESIRED MAXIMUM NUMBER OF COLUMNS, TYPE A CONTROL-C (fC) 
On THE CONS ONSOLE TERM INAL TNAL KEYBOARD AT ANY. TIME, THE FOLLOWING MESSAGE 


TYPE IN THE DESIRED NUMBER OF COLUMNS CIN. DECIMAL) ON THE CONSOLE 
KE FOLLOWED BY A Neel Tetah ite ree IF THE SELECTED NUMBER IS 


DS oe WILL BE REPEATED AND 
YOU Eat ene THE NUMBER COL 


UMNS. WHEN A CORRECT NUMBER IS 
ENTERED, THE PROGRAM WILL THEN ASK FOR A TEST SELECTION AS DESCRIBED 
PREVIOUSLY IN THIS SECTION. 
WA 


TO CHANGE THE NUMBER OF COLUMNS WHEN WAITING FOR A TEST SELECTION 
TYPE A CONTROL-C FOLL BY A CARRIAGE RETURN. y WHILE NPUTTING A 


R UT (DEL) 
INCORRECT ENTRIES. AT ALL TIMES wr H REGISTER CONTROL WILL 
STILL BE EFFECTIVE, EVEN IF USING CONSOLE KEYBOARD CONTROL. 

















JOl 
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5.3 DYNAMIC SOFTWARE SWITCH REGISTER CONTROL 









we VILRELE (OR ALL SWITCHES WERE UP WHEN THE PROGRAM 
WILL RECOGNIZE THE FOLLOWING DYNAMIC 
SO TuBRE gar Tek RERISTER SR NTROL 


YPING A ¢0 38 (BEL) AT ANY TIME DURING PROGRAM EXECUTION, EXCEPT 
mith TING A TEST OR LUI N NUMBER SELECT ON, WILL CAUSE THE 
DI TIC TO. sro THE CURRENT AND TYPE OLLOWING MESSAGE ON 


SWR = XXXXXX NEW = 


WHERE - XXXXXX_ IS THE CURRENT CONTENTS OF THE SOFTWARE SWITCH REGISTER 
a. IN OCTAL. THE SOFTWARE CONTROL ROUTINE WILL THEN AWAIT OPERATOR 


» THE TOR IS st QUIRED TO TYPE ONE OR MORE OF THE 
LEGAL CHARAC 1) a pt FEED LP) SYCARRTAGE RETURN Pa a 


IhpUT CHARACTER 18)" NOT. 8 ex J OF SPEED Bg al ocTaL 


DIGIT AND WILL BE ECHOED AS THE Brant THAT IS GOING TO STORED 
THE SWITCH SETTING. 


 FBNGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY [yPES THE NEW 
LEADING ZEROS NEED NOT BE TYPED. AND 


SF ier ng CONSOLE TERMINAL IS AVAILABLE AND A HARDWARE SWITCH 
AR 






BHORTES THE INPUT STRING WITH A <CR> OR <LF> DEPENDING ON THE 
PROGRAM ACTION DESIRED AS DESCRIBED BELOW. THE INPUT VALUE WILL BE 
TO SHE PaeT Eup DIGITS TYPED. AT LEAST ONE DIGIT MUST BE 


TPED" PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR. 


WHEN THE INPUT STRING IS-TERMINATED WITH A <CR> THE DIAGNOSTIC WILL 
ee mE OLY THING FROM T POINT AT WHICH IT WAS INTERRUPTED. IF A 
oe THE PROGRAM WILL CONTINUE WITHOUT 
SSR. LF} IS USED TO TERMINATE THE INPUT STRING 


Nir A 
May HE PROGRAM i WILL THEN ASK FOR A TEST SELECTION AS DESCRIBED IN SECTION 


F A tU_ IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO _ THE 
Y rig ys INPUT VALUE WILL BE DISREGARDED AND THE PROMPT MESSAGE 





KO1l 
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5.4 ERROR REPORTING 


Bul OSS TERCERA Taag crete MESES EPO oO tad 
WILL | NTED ON THE CONSOLE ae 


TEST #XX, PC=XXXXXX, ERROR #XXX, MESSAGE >>>>>>>»>»>> 


THE ERROR RURRED THE ERROR THE TEST NUMBER, THE LOCATION WHERE THE 
ERROR AND THE TYPE OF ERROR THAT OCCURRED. 
pon RODITIONAL 1 INFORMATION ON ANY ERROR CONDITION, REFER TO THE 


A CONSOLE onto ee TS NOT AVAILABLE THE HALT ON ERROR SWITCH 


Pte ak SERRPE TO FINO THE AOURESS WERE Te ERROR. “OCCURR 


SITEMB TO FIND T THE T RAL BE LOCATED 
i EITHER a 3 HARDWARE. OR R SOFT MARE RS ISPLAY “DEPENDT G -ON CPU TYPE. 

REFER TO THE PROGRAM LISTING TO DETERMINE THE TYPE OF ERROR THAT 
OCCURRED AND TO FIND ANY ADDITIONAL INFORMATION REGARDING THAT ERROR. 
f ste THE ERROR MESSAGES ARE LOCATED NEAR THE END OF THE PROGRAM 


6.0 TEST DESCRIPTIONS 


&.1 OPERATOR INTERVENTION TESTS 


THIS SERIES OF TESTS CONSISTS OF ALL TESTS tt al EXECUTED WHICH 
COULD ee gy RATOR INTERVENTION. THESE TESTS ARE 
EXECUTED ONLY ONCE EACH WHEN THE DIAGNOSTIC IS FIRST STARTED UP. A 
DETAILED DESCRIPTION OF EACH TEST FOLLOWS: 


i eee es - - 


SEQ 0010 





LO1- 
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6.1.1 TEST OO - INTERFACE & CONTROL TESTS 


THIS ay ubee DESIGNED is ea sas ty DECODE AND CONTROL INTERFACE TEST 
AER INC AG CHECKOU peinTeR INTERRUPT FACILITY. nee NA, 
(N ie “doe We oe anh OPER O Ur fhelOe uit WIE BE 
PRIN ont ROLE DEVICE IF AVAILABLE T i PROGRAM WILL WAIT 
FOR T SBERATOR OMPLETE THE ACTION. DEPRESS HE SPACE BAR ON THE 
OR THE CONT Ae set. CPU IF NO CONSOLE 
DEVI TS AVAILABLE TO TEST THE NEXT CONDITION WHEN READY. IF ANY 
ve CONDITION te OR ANY NON-EXPECTED RESULTS ARE ENCOUNTERED, AN 
We Seaet al. PRINTED ON Le CONSOLE DEVICE IF AVAILABLE. 
PREFER TO SECTION 5.3 ON ERROR REPORTING. ) 


SHOULD BE _OFF ON THE LAI80 BEFORE STARTING THIS TEST. THE 
PROGRAM WILL FIRST TEST THAT THE ERROR BIT IS SET AND THE ree IS 
NOT READY WITH pee OFF. AN INSTRUCTION WILL THEN FOR 

PRINTER POWER BE TURNED ON. TURN POWER ON rm MAKE SURE THERE. IS 
PAPER IN 3 PRIN , WO me cit fe IS_OFF T T 


sn 


THE PAPER 


2n5h 
oe 
< 


ARI ER MAKE SURE T. 
PRINTER IS SET TO ON-LINE BEFORE CONTINUING. pet PRO GRAN WILL TEST TO 
SEE IF THE ERROR BIT IS CLEARED AND THE PRINTER IS RE 


THE LAST HALF OF THIS M2 WILL BE PERFORMED AUTOMATICALLY WITHOUT 
FURTHER MANUAL INTERVENTION REQUIRED. THE DIAGNOSTIC WILL ISSUE A 
T LEAR AND THE PRINTER 


THEN oo. THAT T 

SET WITHIN A REASONABLE AMOUNT OF TIME. THE FINAL TEST WILL CHECK 
THAT THE PRINTER WILL NOT INTERRUPT ABOVE Erloni ty LEVEL 3 AND WILL 
INTERRUPT AT ALL PRIORITY LEVELS BELOW LEVEL 





SEQ 0011 
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6.1.2 TEST O01 - TOP OF FORM SWITCH TEST 
mae TEST CHECKS ALL POSITIONS OF Ms TOP OF FORM ren THE PROGR 


PRINT THE NEXT THE _T FORM H 

On THe ON ONSELE TERRINAL OE FP TER CET SAND THEN art PORT R THE He nies 
TTING THE SWITCH DEPRESS 

10, OF THE CONSOLE DEVICE (OR CONT rT NUE ON THE PROCESSOR IF NO. NEONSOLE 

vits ox TS) TO. TEST THAT SW a posrTION AFTER CHECKING ALL 

PRINTER OUTPUT CAN BE VISUALLY VERIFIED. A LINE OF ALL 

S 15 PRINTED AS A STARTING POINT AND THEN LINES ARE PRINTED TO 

Seah THE PROPER SPACING (IN INCHES) FROM THE PREVIOUS LINE TO THAT 





6.1.3 TEST O& - PRINT SPEED TIMING TEST 


THIS TEST IS DESIGNED TO TIME THE LA180 FOR ONE FULL MINUTE WHILE A 
RL PATTERN IS PRINTED TO THE SELECTED MAXIMUM NUMBER OF COLUMNS. 
IF A LINE CLOCK_OR A PROS rntGLE CLOCK OPTION IS_ DETERMINED TO BE 
AVAILABLE BY THE PROGRAM, IT WILL BE USED TO pat Ee TIME THE 
PRINTER. WHEN NEITHER CLOCK OPTION IS ye oo TIMING WILL 
3 USED AND OPERATING INSTRUCTIONS WILL BE TYPED’ oH ep, CooL DEVICE 





80 AND L 
PRINT SPEED IS_ DIRECT Lie TED TO THE NUMBER OF COLUMNS” pele 
PRINTED. i THE CONTENTS OF ONE LOCATION P MEMORY WILL HAVE TO 

et Yat ne & LINE FREQUENCY IS SO HZ. AND A CLOCK OPTION IS BEING 














6.2 PRINTING TESTS 

THESE TESTS ARE DESIGNED AS A TEST OF THE PRINTING MECHANISM AND THE 

ASSOCIATED CONTROL LOGIC. — AT THE BEGINNING OF EACH TEST, TEST 

HEADER WILL INDICATE THE TEST NUMBER BEING EXECUTED. THE TEST’ PROGRAM 
TTOBS FOR PROPER OPERAT LINE PR 


CONT TUALLY ION OF T 
eo PRINTER R OPERATION HAS BEEN COMPLETED, THROUGH THE PRINTER “READY™ 
LINE AND THE SETTING OF THE =DENAND® FLAG. I ULD 


5 Fa 
z 
4 
m 
bs) 
D 
mn 
4 
m 
bs] 


H THAT T RETURN FROM T NT TONAL UP 
THE PRINTER “READY. SINCE THE PROCESSOR CAN ONLY DETECT THE CURRENT 
OF THE “READY” AND “DEMAND” RETURN LINES E 
EXAMIME THE PRINT PATTERNS PRODUCED BY THE VARIOUS TEST ROUTINES. 
EACH PATTERN HAS BEEN CHOSEN FOR EASE OF VISUAL VERIFICATION. 


DETAILED DESCRIPTIONS OF EACH TEST PATTERN APPEARS IN THE DESCRIPTION 
OF THE FOLLOWING TEST ROUTINES. 


NO1. 
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6.2.1 TEST 20 - DATA TRANSFER PATHS TEST 
we TEST IS B DESIGNED I TO Teor, he INTER. LINES TO AND THROUGH Te 
N ae AN ALTERNATING BIT PATTERN I 
WHICH WILL PRINT .: TERNAT NG AND. U’S IN CHECKERBOAR 


x’ 

PATTERN TO THE MAXIMUM C WIDTH. THE STARTING CHARACTER FOR EACH 
LINE IS ALTERNATED AND A TOTAL OF 16 LINES ARE PRINTED. 
EXAMPLE: 2 

HURURUSU se one eURU 

URURURUR ..... U*U% td 

MURURURU fool) #UXU : 

URUeURUS ..... U*U% 


6.2.2 TEST 21 - HEAD POSITIONING TEST 


S TEST CHECKS THE CARR TURN ab ROR EVEN NUMBERED COLUMNS 
ang oli SPACING OF fre aOCEND STOR AD FROM THE L Ma MARGIN. HOWEVER 
7 PURPOSE. OF OF anton = 1S TO TEST THE SOLENOID HEAD POSITION 

DECODER "OR PROPER OPERA 


TEST PRINT AF I ALTERNATING Pac TARTING 
ut cm ue TH END OF Ne rte bite THE PRINT HEAD HEAD EAD IS RE YuRNED TO THE 
SEEING. the TeRInT’ Arp D Sur FRON He "Agr “reRGIN TO a FIRST SPACE 
ING AN “Xx", EXECUTING A CARRIAGE RET 
REPEATED UNTIL’ THE LINE IS COMPLETED. CHECK K TO" SEE THAT ALL 
IN THE MIDDLE OF THE SPACE BETWEEN THE TWO ADJACENT ZEROES. 
EXAMPLE: | ; ; 
OxOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOX 


6.2.3 TEST 22 - BACKSPACE TEST 


Tuts st 13 Bes pest@eD TO CHECK THE BACKSPACE FEATURE OF THE LAISO 
NES OF X’S INTERSPACED WITH DASHES hey a PRINTED BY 
PRINTING A SLASH, EXECUTING A BACKS _ AND THEN PRINTING A BACKSLASH 


TG EACH CHARACTER. MAXIMUM OF 127 AOCUNNe WILL BE 
PRI Y THIS TEST. 
EXAMPLE: 

X=-K-X-X=X-K-K=X 

K-K=-X-K-K-X-X-X 


SEQ 0013 















BOe 
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S£9 0014 
6.2.4 TEST 23 - CHARACTER GENERATOR TEST 
THIS TEST GHECKS THE SPACE ALL 34 PRINTABLE CHARACTERS (ASCII CODES 

om INTING A SINGLE LINE, 30 CHARACTERS LONG, OF EACH 


EXAMPLE: 





6.2.5 TEST 24 - NON-PRINTABLE CHARACTER TEST - 
THIS TEST IS PEST BE TO TEST iy | LALSD HANDLING OF paige hb st 


D THEN , 
Hat Por ANDRINTABLE C TERS WI HIFT ‘ 
I 1S " chenae oa ie a being Test eb 
THE FULL RANGE OF 


"BEFORE gy eae Lees HHL. eevee I9, i ure cu ie 


PRINTED LINE. RELE CHARACTERS GaVING NO CERTROL FUNCTION 
WITHIN thé LA18O Sate Be RE wee 


EXAMPLE: 

















E™ 8828" ()#+,-. 0123456789: ; «=> 9ABC.. 
eS03" (4+, -. 70123456789: ; (=> ?9ABCD. 
953" (e+, +. 70122456789: ; <=> 7ABCDE. 


6.2.6 TEST 2 - BUFFER TEST 


HIS TEST IS DESIGNED TO TEST THE CHARACTER STORAGE BUFFER IN THE 
es FOR PROPER OPERATION. THIS Test WILL PRODUCE FOUR LINES OF 
I WITH 2 BLANK LINES S BET THE. FIRST SEC LINES. T 
LINES ORI WILL ALSO A CHECK Of PRINTING THE CORREC 
COLUMN WIDTH. THE PATTERNS ARE DESCR 132 COLUMNS BUT WILL BE 
SHORTENED ACCORDINGLY FOR NARROWER TEST WIDTHS. BEFORE THE FIRS LINE 
IS STORED, 16 6 e's MILL WILL BE E LOnDED IN 70 THE BUFFER. THEN A RUBOUT (177) 
WILL "SENT TO CHECK THAT A FUBOUT WILL CLEAR. T per BEF ORE 

Ha OF THE LAST THREE LINES IS PRINTED a 
THEEN THE FIRST AND SECOND PRIN NTED LI Tre, CHaRaCTER “Bure ai 
H ALL E’S. THUS pHs bE Eee 


FILLED YWHERE Hest 
FRTTERN INDICATES AN ERROR. 





ne ee ee 





COe- 
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SEghD PREATED. CINE LOL “GONTRIN' 98 ceRGES AGO 3 ONES. "TRE, THIRD 


ST 5 9, “ 
IN GROUPS OF 19 Gremec tens Etc i cEXCEPT the tHe’ Fits? GROUP be 
AIN ONLY & CHARACTE WILL CONTAIN 
TO $ THEN O IN COCcESS TENT BepenteD TO THE MAXIMUM 


Bach 
Ons 
aed 


i: i 
2 ‘3 


-4 


COLUMN NUMBER MAY BE READ DIRECTLY BY READING THE NUMBERS IN 
any bres COLUMN ON THE ast THREE LINES, FROM TOP TO BOTTOM. 


COLUMN 30 WOULD BE 


COLUMN 132 WOULD BE 


MWGse- OWO 


EXAMPLE: 
VDLALLLIIL ALLL I11..... 322 


9009090000009990900090000009090 11 
QOSSO0OOS Lill leeeeeeece233..... 333 
1234567890123456789012345678901..... Ole 


&.2.7 TEST 26 - OVERPRINT TEST 


THIS Renee TO CHECK THE spat ING AND REPEATABLE PRINTING 
CoARACTE IST OF THE PRINTER. FOUR LINES OF CHARACTERS ARE EACH 
ap at lS He TIMES. me nae CONSIST oF THE FOLLOWING CHARACTERS 


TED ACROSS THE 
ROW 1 E-—? 
ROW e SP -@ 
ROW 3 M - SP 
ROW 4 SP - 8 


THE RESULTING PATTERN WILL BE A CHECKERBOARD PATTERN AND THE 
ER te Re. CHARACTERS SHOULD BE ALIGNED PROPERLY WITH THE INITIAL 


EXAMPLE: 
FEFEEEEEEE 
PITIISITdI’G 


nnd od oo 
seeseseeaess 


ewe -- a - ~- 














SEQ COIS 










DOe 
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6.2.8 TEST 27 - MULTIPLE LINE FEED TEST 
THIS TEST CHECKS THE Lie FEED CAPABILITY OF THE PRINTER BY SENDING 


SER PRINTED AT ME’ LEFT RERGIN OF THe REFERENCE LIne InOTCATES The 


NUNGER OF LINE FEEDS BAT FOLLOW. ACH L 
DASHES AS REFERENCE POINTS FOR MEASURING it FIRST ND. ast eerie Se 
CHRARAC TERS LONG (MAXIMUM) AND THE MIDOLE LINES BEING” 30 CHARACTER 


EXAMPLE 
i conaionenamnammmen tre tT Trae 
Q4-------------------- 
oe eeeeeeeesoeooeoeoecen 
>» ? BLANK LINES 
Ts ------- Woe ee eee === 





E0e 


PAGE 17 


6.2.9 TEST 30 - RISBON FEED TEST 
THIS ere ie THE RIBBON FEED MECHANISM SY PRINTING A SINGLE COLUMN 


OF 24 X"S DOWN THE LEFT HAND MARGIN OF THE PAGE. VISUALLY 
SHE CK FOR PROPER OPERATION OF THE RIBBON FEED MECHANISM DURING THIS 


EXAMPLE: 


alt oD 0S 


Moms * 


$.2.19 TEST 51 - BELL TEST 


THIS TEST IS DESIGNED TO CHECK THE SELL CODE LOGIC TIMING 
SE OF Rue MICRO LOGIC. THE TEST 45 “PRINT "SELL TEST" 
gE eroceD TH BELL ore BETWEEN CHARAC . ore wie 
CARRIAGE RETURN BRD LINE FUNCTIONS. A TOTAL POF F I gel bi 3 
Bee ED. THIS TEST” WI ee O AUDIBLY INDICATE AN END OF A COMPLETE 
RSS THROUGH tHE PRINTING TEST SEQUENCE. 


EXAMPLE: 
‘BEL> BELL <BEL> <SP> TEST <BEL> 
‘BEL> <LF> <BEL> <CR> 


<CR> 














_ —-— - - - DS eeeEEEEEEEUEUEeeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEOeeeeeee 


FOe 
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6.3 MAINTANANCE AIDS 


FOR THE LAISO PRINTER. A GETRILED DESCRIPTION GF EACH TEST FOLLOWS. 


6.3.1 TEST 60 - LIFE TEST 

THIS TEST RUNS CONTINUOUSLY AND IS RUN AS AN TEST SeQuEAC ‘hk 

PRINTS. 2 LINES, OF EACH “PRINTABLE CHARACTER BND) The “| 

COnrdfuoUsLt. THE secon "Line OF E TER ry CvERPRINT 
TIMES TO CONSERVE PAPER. AT THE COMPLETION OF EACH 

att og PRINTABLE CHARACTER SET, THE PASS COUNT WILL 3 “PRINTED ON THE 


TIME FOR A COMPLETE PASS, WITH 132 COLUMNS IS APPROXIMATELY 10 
MINUTES. 





6.3.2 TEST &1 - SCOPE DRIVE ROUTINE 
THE peo THIS TEST IS TO PROVIDE THE OPERATOR WITH A eet BUT 
SCOPE OR 


COMPREHENS VER ROUTINE FOR USE IN TROUBLE SHOOTING THE 
PRINTER AND INTERFACE CONTROL LOGIC WITH AN OSCILLISCOPE. 


SETTING OF THE ge SWITCH THE 
Een der (SWITCH 09) fut IS — Ht ieee CONTINUALLY SEND 
TER IS SET IN pe parce pete ye My ey: Hite 


WILL 4 . WHEN SENDING 
NDIVIQUAL CHARACTERS OR IF SENDING NON-PRINTABLE CHARACTERS, NO LINE 
OR CARRIAGE RETURNS WILL BE INSERTED BY THE PROGRAM. 





SEG 0018 














GOe 
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6.3.3 TEST 62 - LINE PRINT TEST 


THIS TEST CONTINUOUSLY PRINTS ee FULL 1h Senos OF Pa ed 32 RESELECT TH IS 


fa? BMS" HUE GES tac Pl Ee FESR Hse HOE 


6.3.4 TEST 63 - CHARACTER PRINT TEST 


THIS TEST LOADS WHATEVER CHARACTER IS TYPED ON THE console KEYBOARD TO 
LAI80, CHARACTER BY CHARACTER. pu TY TYPED CHARACTERS ARE ECHOED TO 
THe CONSOLE ue AS As stead o a wn n fevice oy Wate 


REPU ERA teal MELE PATH Meta, 












H0e2 










eC tf -OaLae MACY11 ‘ahs 1O-NOV-75 15:14 
DZLAER.P TABLE OF CONTEN 
a SoC ellie 
ee es 
19C STARTING “EGORESSES 
206 OMMON T 
e7e PROGRAM INITIALIZATION 
366 OPERATOR INTERVENTION TESTS 
715 PRINTING TESTS 
1114 END OF PASS ROUTINE 
iBat ites INTERRUPT ICE ROUTINES 
1538 TEST Exit T_ROUTI 
1z>t eae TO Sean DESIRED TEST 
1629 AVE AND RESTORE RO-RS ROUTINES 
1675 TYPE ROUTINE 
1718 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
1786 BINARY TO OCTAL (ASCII) AND TYPE 
1864 ROUTING? TO LOAD CHARACTERS TO LA180 
1980 PRI ST_ HEADER 
2014 TTY INPUT ROUTINE 
2032 READ A DECIMAL NUMBER FROM THE TTY 
e153 TH BINARY TO DE 
eel? SI LENGTH BINARY TO DE 
2235 00 LENGTH BINARY TO OC 
e275 SINGLE LENGTH BINARY TO OC 





NDE 
AER. 

4 
5 
& 
10 
ii 
13 
14 
- 
13 
18 
19 
s9 
1 
ee 
5 
2 
23 
30 
31 
se 
33 
34 
3 
36 
3? 
38 
33 
40 
41 
42 
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-ENABLE ABS, AMA 


.MCALL .EQUAT, .SCATCH, .SEOP, SETPRI 
-MCALL Freee. Typott IyPbEE SPOWER, . HEADER 
MCALL . $0820, . $5820, . SREAD 

“MCALL TYPNAM; “Setup TRMTRP, .SRODEC, .SSAVE, .SACTLi 


HeOPURIGHT ves J-PZLAeE-A 


j #DIGITAL og a le 


et) NARD, MAS 


on BY ROBERT BAKER 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
HSPACKAGE (MAINDEC-11-DZQAC-B1), AUG 29,1975. 


-SBTTL OPERATIONAL SWITCH SETTINGS 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT_ERROR TYPEOUTS 

BELL RR 

SNGL CHAR/FULL LINE - SCOPE ROUTINE 
HALT & SELECT TEST 

# COLUMNS AT START UP 

TEST # SELECTION 


CHAR SELECTION FOR SCOPE ROUTINE 


J ee ee ee ee 


;##e SET Te SWITCHES UP BEFORE STARTING THE PROGRAM TO USE THE 
: SOFTWARE SWITCH REGISTER CONTROL. MAKE SURE LOCATION 000176 
; CONTAINS THE DESIRED SWITCH SETTINGS BEFORE STARTING. 





J02 
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DZLAEA.P11 OPERATIONAL SWITCH SETTINGS 


43 . 
.SBTTL BASIC DEFINITIONS 


itih SENTT IA _— OF THE STACK POINTER ##* 1100 ### 


“Eau EN, ,» ERROR 3 BASIC DEFINITION OF ERROR CALL 
TOT. SCOPE ;;BASIC DEFINITION OF SCOPE CALL 
4 ;;PROCESSOR STATUS WORD 


+ Bochal prert REGISTER 
INTERRUPT peoves’ REGISTER 
SWR= 7 33 pul ied GISTER 
DDISP= 15259 33 DISPLAY REGISTER 


; GENERAL PURPOSE REGISTER DEFINITIONS 
RO= = “0 *:GENERAL RE 


FHE 


R7= 
-EQUIV Re, SP 
EQUIV R7,PC 


je"SHITCH REGISTER” SWITCH DEFINITIONS 
Sw15= 100000 


47 
48 
49 
50 
51 
Se 
$3 
54 
SS 
56 
S?7 
58 
e3 
61 
62 
63 
64 
=) 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
7? 
78 
73 
89 
81 
82 
es 
8& 
87 
3 
91 
92 
93 
34 
3S 
+) 
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BBSRReBRSSLLs 


PUT 0 0 2b 9 9 pe 
~—OVOMOIMUICUIT--O 


SBR VRRZORHSSBVRRLSA 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
l 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


<= 
ry 


eutmeataeets 
SRHESS 


KO0e 
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SWO8, SWS 
SWO7, SW7 
’ 


SwO4; Sw 
SwO3, SW3 
SwOe, SW2 
abo" Sud 


;#DATA BIT DEFINITIONS (BITOO TO BITIS) 
S= 100000 ‘ 


ate tafat=fetereretere 
Tee Rte 


ITT 4 0 6 4 4 00 04 a 04 4 os 0 
+4444 
S2R8 
oe ut 


pM hes lesleslesterleslesleslesleslesleslesleslen 
e 


MMMmmmririry 
eeceeeeee 


S36 Bassa: 
a 
Ooo- 
oO 
ee ee) 
MoOnow 


DBDOWDOWoOwoO~—rmvc 
rr rrr) 


444 


b-4 0-4 0-4 4 te 
<<<<<<<c<<< 
¢ wow 
44 
Ststntapstitaset pre 
oHnoe 


ot 


VECTOR ADDRESSES 
;;TIME OUT AND OTHER ERRORS 
ssRESERVED AND ILLEGAL INSTRUCTIONS 
3; TRACE TRAP 
EE tout TaAbets 
3 NPUT/QUTPUT TRAP (IOT) **SCOPEx* 
;EMULATOR TRAP (EMT) #*ERROR#* 
:3"TRAP™ TRAP 
3; 1TY KEYBOARD VECTOR 
:;TTY PRINTER VECTOR 
;;PROGRAM INTERRUPT REQUEST VECTOR 


T 


vr} 
z 
. 
yl 
z 


TPVEC= 64 
PIRQVEC=240 
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0015 
0012 
00014 FF=14 
ocd200 CRLF=200 
§ PRRRRAAAA RAE LE LEA EAA EERE REESE ERE REE LL EE EEA FREER ER RLELS LLLEE 


-SBTTL TRAP CATCHER 


=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2,HALT” 
SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 


=174 
DISPREG: .WORD 0 ;; SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 ;;SOFTWARE SWITCH REGISTER 


5 RERAAAARRAARHEE RELL LLEE ALE LEAL A LALA ERELE LLL ALLL EREERERELALA ERE 


.SBTTL ACT11 HOOKS 
;HOOKS REQUIRED BY ACT11 
SSVPC=. 


Sve sSAVE PC 
SENDAD :;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


.=S2 
-WORD_ 20000 332 )SET LOC.52 TO 20000 
. =$SVPC ;; RESTORE PC 





NAINDEC-11-D2LAE-A MACY11 27(657) 10-NOV-75 15:14 PAGE S * SEQ 0025S 
OZLAEA.P 11 ACT11 HOOKS 


1% 5 RERARA ARE KAA ALAA AAA AA KAS LALA KAKA LARA ARE RE RL AAAS EA FE REAR AAREREKAESE 
177 000030 .230 
138 g00¢30 006572 SERROR EMT - ERROR HANDLER 
190 000032 990000 0 
182 000100 .=100 
183 yoo1oo oos44o LKSRV sKW11-L INTERRUPT 
185 900102 ood000 0 ar 
187 o00104' 005430 OCI | sKW11-P INTERRUPT 
188 00106 000000 0 
ie 
i a : HEKRELEL ELLER KEKE AE HELE REALE RARE REAR LEER AE RE REELS EEE RR ERE 
133 | .SBTTL STARTING ADDRESSES 
195 000200 .=200 : 
197 000200 000137 001154 IMP START ;GENERAL START 
139 000800 - ,=600 
201 000600 000137 001170 IMP RESTRT RESTART - NO INTERACTIVE TESTS 
203 00604 000137 001200 IMP CONTRL G0 TO KEYBOARD CONTROL, 
204 SWILL DEFAULT TO SWITCH REG 
205 IF CONSOLE DEVICE DOES NOT EXIST 
coe 3 RELEASE REREL ALA LERA LHL LAA LAA LAF RAR KSLA RAE AE LALA RAA REEL AHRKKSKKKE 
205 .SBTTL COMMON TPGS 
gil 001100 =1100 
213 001100 177560 TKS: 177560 TTY KYBD STATUS REG. ADDRESS 
at 901108 177562 TKB: 177562 ‘TTY Kye BUFFER G. ADDRESS 
15 601194 177564 TPS: 177564 ‘TTY PRINTER STATUS REG. ADDRESS 
gig 00110 177566 TPB: 177566 TTY PRINTER BUFFER REG. ADDRESS 
218 ! | 
219 EQUIV IKS,STKS 
220 EQUIV TKB’STKB 
eel EQUIV TPS'STPS 
eee EQUIV TPB’ STPB 
224 OO1110 177514 LPS: 177514 ;LINE PRINTER STATUS REG. ADDRESS 
225 :BIT 1§ = ERROR 
ecb ;BIT = READY 
‘BIT 6 = INTERRUPT ENABLE 


BS 





_————— ae ee o- _ 
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229 


esi 


Tt 


tf 
uw 
wo 


Noe eee Eee 


001112 177516 


“001114 172540 
172542 


001116 
001120 177546 


BaRe 


MACYLI 27(657) 


{ 
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LPB: 


PLKS: 
CSBR: 


LKS: 


SWR: - WOR 
DISPLAY: . 


TLOOP: 


CKFLAG: . 


$BELL: 
SQUES: 
SCRLF: 
SLF: 


SCR: 
SFF: 


177516 


172540 
172542 


177546 


<207> 
12/ 
«15> 
<le> 


«15> 
«14 


;LINE PRINTER DATA BUFFER REG. ADDRESS 
;BITS O-6 = ae a on BUFFER 

sBITS 7-15 = 

;KL11-P CLOCK STATUS REG. ADDRESS © 
:KL11-P COUNT SET ADDRESS 


;KW11-L CLOCK STATUS REG. ADDRESS 


; SW BFS ADDRESS 
DISPLAY ADR 


; TEST ue 


;NUMBER OF COLUMNS 
sRUN N Teer ONCE FLAG fe REG CTL) 
T_OMCE FLAG (KYBD tet 
iT OOP ON TEST FLAG (KYBD CTL 
;CLOCK OPTION FLAG 
;0 = NONE AVAILABLE 


= KL11- 


;* 
371 = KLII1- 


;QUESTION MARK 
;CARRIAGE RETURN - LINE FEED 
;LINE FEED - 


;CARRIAGE RETURN ONLY 
;FORM FEED 


ETT EN oO aE be ee 
; THE FOLLOWING LOCATION 


id Hottie GREE Fac HEE PF PUB Saar Tem 


alg 


STPFLG: 
EVEN 


S ‘ 
e | 12 
. . 0 


de a TER LINE FEED 


eT ia er = 


SEQ 0026 






MAINOEC- 
DILAES.© 


273 











wre 
tator 


wt 





yy 
uty 


SB Re oe 


1) 
oO 
o~ 


Be Site hs 


38888 S8SBBSBSESSE8B8E8888E888888 


0-+0 -*0--6- op e-- 0 -e-- 





ICI UCI WIGILIGIG 
TUd—+ 0 0-0 & <b 0 0 
NOU £OITU~-O 


-O.0@M 


fore 


ht 


aS 





a 
mu 
o 


wn 
£ 


oF & 


999-1 ~-e~- 
o— 0— 6-6 <0 © 6+ 0-- 8+ 


rr 
Tue- 
mus 


SE888668888E88 BS 


0-6 -0-—- <b &- &-< & * & B-< 9 0 = © = +» = b= >< B= 9 0 9 =< 0 0 BO HH oH o-oo + 


ps 
sla 


SRR AIL 


GW) 
eee 
££ 


Phone CROaGRRS 


EE EWG) 


SHES 


~ 


ddddgaedaae 


MOdNI000 


jo | ae | oe | 
0 0 0b 
rm 
dee : 
“ 


~ 


22 
ae 
SS 


gPePRRPPe 
eee 
55 

P8820 


5 
S 
: 


ae 


—— 
S888 
VOWEL 


ae 


BS 
Zot 


se 
38 
He 


BS 


GE 


Se 
fe 


S 


cOoc0é 
900004 
001135 
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LRRREERERRERRREREESESERERORESESEESE EOE ES SLEDS SED ESFESESSESESOSES 
.SBTTL PROGRAM INITIALIZATION 

CLR 
CMP 


START: 


RESTRT: 


FART: 


64s: 


6S$: 


10S: 





TSTNM SET TEST NUMBER 70 ZERO. 

a42, 3846 stHeCK TF IN ACT QUICK 

:SKI© MANUAL IN TERVENTION Reebrs IF ves 

STARTX ea a 

822, $TSTIN : E 0 20 

rage UE es 

#179570, SUR : INITIALIZE CONTROL 

SWR, DISPLAY 

as TACK TUP THE STACK POINTER 

aS TRAP DBTRAPVEC' :: TRAP {VECTOR FoR TRAP CALLS 
8340, a8 RAPVEC +6; Hy EL 

8SPURON, a8 SPeHIER FAILURE VECTOR 

#340 SePuRVECe : CEVEL ? 

ass *:CLEAR THE PASS COUN 

Forcier te = Or PR m COUNTER 
al OUT VECTOR oe 

aSWR a ‘Fey dai: 
588 IF NO THROU tae SCCURS 

HiPornt ‘SOF TWAR 

} TeERee D DISPLAY’; eo tNT 0 Sort SHR pL ay REG 
(SP)+, (SP)4 :iRERT ORE STRCK 

(SP)+: ait T RROR VECTOR 

(SP)+'ae4 

auR AD. :GET SWITC 


BS oe 
soteeatep DISPLAY’ 


aSWR 
#177900,R0 
RO, #132. 


RO, #2. 
3$ 


8132. ,RO 
RO WIOTH 


TL OOP 
; RONE 
TRONE 


SVTST 
10$ 


rib ass 


ALY) 


t } 
8-1, CKFLAG 





CHES 
Na IF at ees ARE UP 
PMP Set sor SOF TUARE SWITCH CONTR 


G 
0-7 
COLUMNS 
FAULT TO 132(10) 
CUNNS 


;BRANCH_IF OK 
sBEFAULT 70 132610) 


:SAVE 8 


:RESET FLA S 


sREPLACE THIS INSTRUCTION WITH NOP (204) 


370 SKIP CLOCK TIMINGS 


;SET TRAP RETURN 
;SET CLOCK FLAG FOR KWi1-P 


MAINDEC=11-DZLAE =F 
Pll PROGRAM 


t 
sits 
sspussseeaes 


alta ta] 


# 


eK 


7} 


£ 
£ 


a a 


uy 
o 


888888888888 B8BSBSSESE8E8 


= = 
wile 


aii a aad A aT al UR A SS AE AT 
FERIA COORDS! FS 


0-20 ° 0-6 6-- 8 > = 6 6 = <-» — 6 —b--& ~~ ~H- 6-6 20 -- 0+ p =9-- op ~ b— 


888 
Pe 
rT 


tht ce 


ee 


MACY11 


INTIAL ESAT 


177416 
000001 
177404 


et 


177342 
001153 
013433 
009006 


000004 
177777 


004756 
001606 


001126 
001153 
006270 
000400 
005624 
001126 
011564 


O0iies 
O1iS64 
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S08: 


4$: 


148: , 












Mit AVAILABLE? : 
UES» 6 CK FOR CONSOLE + sgt 
sSET'CLOCK FLAG FOR KWIL-L 


sKWL1-L aval ABLE? 

rY OR CONSOLE TERMINAL 

: CLEAR CLOCK AVAILABLE FLA - NONE THERE 
:CLEAR TERMINAL AVAILABLE FLAG 


SONS TEE THERE? 


CONTINUE 

es SET TERMINAL AVAILABLE FLAG 
ONTINUE IF CONSOLE 

:PRINT NO CONSOLE MESSAGE 

*RESET TRAP VECTOR HALTS 


ERS, TIME? 


H IF_NO 


HAcTe1 1 BUTO-ACCEPT” 
NO 

b7 ii TYPE ascl STRING 

200) sMAINDEC-11:bSEAESAeC 2005 


T OVER THE ASCIZ 
T CONTROL NOW? 
ND, oh 


or Dera To TO. "su R 85  eabiitess 


KYBD Fon? 


“WANT TEST SELECTI 
YES, Coe Reer" SELECTION HALT 


T’ TES 
;SET POINTER 
;CHECK IF TEST_IN TABLE 
+ BND Se F IN TRBL 
ND_OF OUENCE penect TEST 
; INCREMENT Teal 
s CHECK Next EST NUPSER IN TASLE 


| ome CY11 e7(657) 10-NOV-75 15:14 PAGE 9 SEQ 0029 
PROGRAM INITIALS ZATION 


¢ RERRERAKAARALERE FLARES LL SLAALAAALA REALL AL AAA LA PLAFSAAAEALA LS SLE 


-S8TTL OPERATOR INTERVENTION TESTS 
SOPPPLLITIELLATALIIETTTALAAITTT TA ESTTIATAETTATTS STAT LTT A ASTI SADA 


;TESTO - INTERFACE AND CONTROL TESTS 


“TEST ERROR AND READY BITS, PRINTER OFF LINE - POWER OFF 
SAAALAASASIFELASTESAALTESALLASTAATATATVASAA EASA ETAATAAAS AAAS AAA ASA SSS 


104400 013722 TESTO: TYPE, TOMSGO Sart FOR OPERATOR 
104420 HOLD 


28s: CHECK FOR CONTR 
177154 S a°s s CHEC K FOR FRROR OEONDITION 


1 ERROR SET 
ee ee 1 :PRROR CLEAR, POWER OFF 
| ees RETEST 

177142 —«; : PS ? CHECK 
BPL 2$ 0K, READY NOT SET 
2 =READY SET, POWER OFF 
8S RETEST 
SSOSAFLELATFPTTTTATSLLESATALLASOPTTAETTTTTAATTATSASAAEASLSLESS EASA LASS 


; TEST ERROR AND READY BITS, PRINTER OFF LINE - POWER ON 
SAPLELLITLEPITLTAOETEPLLTLTLSALATTEATEST STITT ATTLPLTTLIEELEDLSLATMD EEE 


es: Mig TOMSG! art FRET RUT ON - TURN POWER ON 


_ BOL 
38: SHE CK 3.PS Se ERK TROL 


I 4§ ERROR SET 
RROR ‘ Batok CLEAR, PRINTER OFF LINE 
TSTB ALPS :CHECK READY 

L c$ 30K READY NOT SET 
ERROR 4 READY v ser, PRINTER OFF LINE 
BR 3$ PRETES 


SAUIUULLUUALLU ALOUD ULYL UA LUUELLLLLELULLULAL AYA LLILULIO AUDEN 


; TEST ERROR AND READY BITS, PRINTER ON LINE 
SOLITIIIITLTL LATTES TETLALTATETPTTTTPEETTETELTEDLELPATELED PELL LALPE DELS 


014004 S$: Mig | , TOMSG2 thar? AU aR SAN TURN ON LINE 


eed 6S: CHECK e CHECK FOR OR CONTROL 
: tC !0K. ERROR CLEAR 
ERROR 5 TERROR SET, PRINTER ON LINE 


s 


BE 
0 0 bo 0 a 
EEROSRY 
MORES 


wee 


S88888888 


Q 
37 
373 
374 
375 
376 
sve 
378 
373 
380 
381 
382 
383 
334 
: 
388 
389 
330 
331 
332 
333 
334 


perdi 
88888888 


SRe 
RNase. 
pond aisened 


CECE CE EL 
BURR 


Bis 
bt ae =i o ] 


B 
S 





E03 
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A 6$ RETEST 
177052 : dLPS ‘CHECK READY 
I 9g :0K, READY SET 
£ sRERDY CLEAR, PRINTER ON LINE 
6S : RETEST 
SPLAT SSALILATSIATATTAAATSAATALTAITATAAASA PLEATS AAATT EASA ALS ALAA AAS A 


; TEST PAPER OUT SWITCH 
SALLIPLITATLALTTTTITALTSAATSLATTAATS ITA LAAAAAAD ES TADAT TATA LTS 


QS: TYPE  ,TOMSG3 ;TYPE INSTRUCTION, PAPER OUT 
HOLD WAIT F RATOR 
9s: i CHECK ONTROL 
812, aLP8 
aLps ;CHECK F FOR OR ERROR CONDITION 


zk ERR ELE , PAPER OUT ERROR 
RETEST 


5 CHECK READY 
READY CLEAR 
Reto SET, PAPER OUT, ON LINE 


-- 
4 
Shs 
- 

o “Sy 


Hee 


; TEST ABILITY TO CLEAR ERROR CONDITION 
SOLILUIELATATTSPTTATETTELTLTLETTEDATTALEATTTASTISTITATTPLTAAELA TASS ID EE 


118: Dre TOMSS unre F FOR SeERaTOR RESET & ON LINE 


les: ;CHECK FOR CONTR 
TST 


on SLE 


#22 
SBe 


fee 


Siscisloicotsiic 


SREBR EVE ee 
= 


B 
3 


~ 
e 
Oo 
- 
t 


HA 


;CHECK ERROR & READY BITS AFTER RESET INSTRUCTION 
SALIELTITLALTTTETTIT TLS ELESELALATATEAPETTTTPLEDPELTEEELLEPLELPBLEEBLL LEE 


44, 

444 
445 
4 
+48 
44g 
450 
Z 
3 
461 
“Ge 
463 
464 
4ES 
4EE 


ifs 


S44 
85 
SF 

VBS 


ERROR CLEAR 
OK BIT SET AFTER RESET INSTR. 


sz 
i | 
+ 
Bp 
— 
Ww 
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OPERATOR INTERVENTION TEST 


71 , 14$ RETEST 
1? : : - CHECK CONTROL 
CLEAR WORLD 
105777 176720 aLPS : CHECK ADY 
100402 Bil 16$ :0K, READY SET 
104014 14 *READY BIT CLEAR AFTER RESET INSTR. 
000771 8R 15$ ;RETEST 


HL 


;CHECK THAT LOADING CHAR BUFFER RESETS READY BIT 
SAND PRINTER DOES GO BACK READY. 


SOCLPTPTTTLTTATLLAATLLT ALAS TSOELOETTVATTISTATTATATLETAT LST TAAS SAS 
16S: CHECK 


O— b= Pb oe 
aRee 


2 


geaneee St 


Z 


CER Fone ou OUT COUNTER 
“LOAD CARR ace RETURN INTO BUFFER 
: CHECK REA 
y CLEAR 
itor BIT NOT CLEAR WHEN CHAR LOADED 
Che "ER OR 
OR CLEAR 
 ORAORY BIT SET AFTER CHAR LOAD 
:PRIN ue BUSY 
$. INC T MER 
ve It FOR F 
17. sNO, T 
16S *RETES 
HLL 


; CHECK en Y LEVEL Ley ApoE 
;PRINT E LEVEL 4 


TEST THAT PRINTER WILL NOT INTERRUPT ABOVE LEVEL 3 
SOLITLIIOTLATTTSEETTTLTTLETETTTTPEPPTETTELTTAEETATTTELPLELATPLLEDSELLELL 
198: MOV iBreck ¢ FIRST a VEL 
O$: CHECK 

MOV EF INTERRUP 
Fa AL AL Dte inte 75 BN JENTERRUPT 


id =} 

Bg 
ete 
“woul 
ur 


~ 
z 
uw 
On 
w 


0 0 © )e—- 
Toree 


8 
R 
y 


38 
8 


002176 
002200 
0 
male 
002216 

Bee Bas 

{ 1 

ee Hi 
002234 
ee 
O02244 
OCeeS0 


Gessner 
g 
, 


WIUTUN UU Unt 


02 02 b= b= 0 0 2 0 bo 
WONIQOUW CWO 


3 
RROR 
Er 
Fo 


rei ttert 
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Bug 


Sy 
e 
55D 
553 
2e¢ 
4 
557 
22g 
5E0 
ee 

ry 
: 
ee? 
eee 
ei 
253 
575 
258 
578 
263 
581 
5e2 


bi 


oe 


ne 2 


aH 


: 


= 





002330 


000100 
000100 
14 


0024S 
176504 


176472 


1 27(657) 


176552 
176542 


. eS$: 


176446 
176436 


176424 


000209 
000202 
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2e$: 


64S: 


233: 


Beds (SP) 


#BIT6,aLPS 

er aLPs 
iO 
Ne 

20$ 

(SP)+, (SP)+ 


ee 
20$ 


PAL FE BY STH, 
3; POP NEW PC AND PS 
T PRINTER INT. ENABLE 


CLEAR PRINTER INT. ENABLE 
T NEXT LEVEL 


YES, CONTINUE NEXT TEST 
3NO, TEST THIS LEVEL 


;RESTORE STACK 
s INTERRUPT ABOVE LEVEL 3 


SCPPSPLLIPISTTSLATALALATTTTALAPAEAT TT TITAIT AIA TAATTT TAEDA T ALAA SA ASS 


; TEST ABILITY OF PRINTER TO INTERRUPT AT ALL PRIORITY LEVELS BELOW 4 
AA AAA dd 


24s: 


26S: 


653: 


278: 


6S: 


CHECK 
TST 
ERROR 
STB 
ERROR 


#27$,200 
3s 

sf 

Ses 

26S 


el 
24s 


RS, -(SP) 
#65S,-(SP) 


#BIT6,aLPS 
#BIT6,aLPS 
4S 


;CHECK FOR CONTROL 
;SET INTERRUPT RETURN 
CHECK FOR ERROR 
ERROR CLE 
itor BIT SET 
*CHECK READY 
0K, READY SET 
:READY CLEAR 
RETEST 
;;PUT NEW PS ON STACK 
$iPUT NEW PC ON STACK 
POP 
T PRINTER INTR. ENABLE 
sDFL AY PRINTER INTR. 
iN NO_ INTERRUPT BELOW LEVEL 4 


eee pan POINTER INTR. ENABLE 


ae at AVES 


;;PUT NEW H ER STACK 
3 PUT STACK 
3; POP NEU PC AND PS 


SEQ 0032 
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JMP EXIT 


ee ee ee ee ee 


;EXIT TEST 


SEQ 0033 


st tet 


MAINDEC-11-DZLAE-A MACY11 
DZLAER.PL1 OPERATOR INTERV 

584 
8S 
60 002526 10441 
591 002530 a1 002640 
592 00eS34 QOle701 000036 
593 002540 O1e700 000055 
2 ee ie 
ES) 104413 001144 
596 O0025Se 104400 014170 
Bae Basses 0 002564 
38 
$39 4 
Par pasees ates 014222 
602 002574 11 
603 002576 104413 001146 
Ree ey ie 
606 OO0eble 104413 
607 002614 000000 
8 RES ey ows 
i Rees Bee 
big nae 001142 
pte 002634 A001 00SS16 
615 asa 
1 44 
3 002650 
618 O02e654 
619 peeeee 

poser 

a5 

002704 

002719 

002714 


Eee 


032061 


103 


e7 (657) 10-Nov-75 15:14 PAGE 14 SEQ 0034 
NTION TESTS 
HH AAAA AAPL 
;TEST1 - TOP OF FORM SWITCH TEST 
HA ee LL USSSA S AAAS 
TESTI: PRTHDR :PRINT TEST R 
MOV #4$,RS SET T POINTER 
MOV #30: RI SET CHAR COUNT 
MOV #55,R0 >SET DASH CHAR 


BRINT SCR SBRINT LINE. oe 


TYPE INSTRUCTIONS 


3S: TYPE TIMSG3 : T 
HOV RS, 15 SET SWITCH SETTING FOR MESG 
1S: .WORD 0 
TYPE  ,TIMSGY sFINISH INSTRUCTIONS 
; ut FOR wie ly 
K >CHECK FOR CONTROL 
PRINT ,SFF : ISSUE FORM FEED 
PRINT ‘TIMSGJ 3 PRINT REFERENCE LINE 
HOV RS, 25 >SET FORM LENGTH FOR MESG 
a Orinses FINI 
Re trove cRS)4 ZINC 3 EB oINTER 
TST (RS) :CHECK TABLE TO SEE IF DONE TEST 
BNE iF INISH TEST 
PRINT .SLF *ADVANCE PAPER WHEN DONE 
IMP EXIT EXIT TEST 
45; ASC 437 ;FORM FEED SWITCH SETTINGS 
3 43.5/ 
“ASCIZ /5.5/ 
-ASCI / : / 
ASC cTrz# 
"ASCIZ 7 87 
“ACI 78.5/ 
“ASCIZ 12 7 
“ASCIZ 714 7 
“WORD 0 END OF TABLE 


Ce o- 


03 
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SAIIULLITIT LLAMA AAAI 
S ;TEST2 - PRINT SPEED TIMING 
631 ta SWIRL PATTERN IS PRINTED FOR ONE FULL M 
P35 iy fa By ait AaB cul EDs on IF EITHER AVAILABLE. 
34 BE USED TO OBTAIN APPROX. PRINT TIMINGS. 
636 op epee SWITCH REGISTER IS NOT AVAILABLE THIS TEST 
637 :CANNOT BE RUN WITHOUT A CLOCK OPTION cE NG BvAtLA THE 
p38 >PROGRAM WILL AUTOMATICALLY SKIP THIS TEST IF I For BE RUN. 
a SOOSSAPLLIALTAAAAAATALAAATAATTAEAA TT AAAATAT EAE ATAATT ETAT SAAT AAAS ALAS 
64 1O4u1e TEST2: PRTHDR rae TEST HEADER 
64 le 003134 o0s46e2 MOV #SPD, TORTN NE OUT RET URN 
644 CLR RY sCLERR NE COUNT 
B4S 19 37 001135 iSTB CKFLAG T tote LAG 
645 1417 Q 4§ i NONE _AHERE, MANUAL TIMING 
647 002407 ss: BLT 1$ Kul 1of 
648 013737 OOS464 OOS4EO MOV MINCNT, CNTR SE KW11l-L CLOCK COUNT 
649 Ol 000100 176144 MOV #8176, aLKS ‘ENABLE CLOCK INTERRUPT 
£50 27 BR :START PRINTING 
651 013777 OOSHE4 176132 1S: MOV MINCNT, @CSBR § ;SET CLOCK COUNT 

012777 O001C0S 176122 MOV #105, 3PLKS ;START CLOCK 
BR T2SP ‘START PRINTING 


x 
8 
ty 


177570 4S: CMP gyre SLT 7S70 ;CLECK SW REG ADR 
BEQ $ 


8 
g 


Sas 
ae 
002736 
002746 
ies 
ees onset 
654 
fee posane 
656 0030049 104413 014267 PRINT , T2EM ;CONTINUE IF HARDWARE 
bee als baa hse ee Bg gages Fest 
659 903020 013461 2g TYPE MANMSG : PRINT INSTRUCTIONS 
660 010000 176070 3$ BIT BSW12, ISWR :Sil2 UP? 
bbl 003032 001774 BEQ 3$ NO, WAIT FOR START 
663 12702 000041 T2SP: MOV #41,R2 :SET START CHAR 
bes ei shea 1$ MOV ; T 
6ES p 013701 001130 es NOY WIDTH, R1 fe COL UN COUNT 
pees Ft 1 bec Ri “DEC CHAR COUNT 
BEE eee 001407 BEd 4g s BRANCH JE DONE LINE 
£70 tebe? 000177 CMP , #177 t CHECK C 
671 1371 3$ 0K, CONTINUE 
be 003064 012700 oo0040 MOV #40, RO sSet CHAR = SPACE 
oz ieee rahe 001142 4§: PRINT F thy TUNE 
676 63108 pea? 001135 STB  CKFLAG *USING CLOCK TIMING? 
677 003104 001006 zg YES, BYPASS MANUAL TIMING 
b78 003106 036777 010000 176006 BI #12, ISWR iShLe DOWN? 
680 003116 nue 003134 J SPD YES, Pury Pe PRINTING ROUTINE 
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681 122 S$: INC Re sINC_START CHAR 
1 Re, #177 :CHECK IT 
683 1 BNE 1$ 0K, CONTINUE 
003132 Se TesP ‘RESET START CHAR 
SOVPLITLEITLLETTALLAAATAT ATTA AAA bt SALSA SSA 
;ROUTINE TO PRINT/TYPE MEASURED PRINT SPEED FOR TEST 2. 
SAOOOSSSITTITTELEEATTLTAEATTAATALATTEELEAAA STATA A TATA EAE LT AAATAALAAS SSS 
SPD: SET RUBOUT CHAR 
it ‘Elan BUFFER 

;START MESG 

USING CLOCK? 

:YES, BRANCH 

ADD’ WORD “APPROXIMATELY™ TO MESG 


== 
mY: 


= — 6-6 & = b+ b+ = p> §- = 6 pe 


eaeees 


#2 
Be 


aa 


RY, -(SP) ;:PUSH R4 ON STACK 

PC; $SB2D : CONVERT 5 

RY, -(SP) PUSH RY ON STACK 
: TYPE a 

,PRSP3 *LOAD MORE OF MESG 

PRSP3 

WIDTH, -(SP) ; SCOLUMNS ON STACK 


SNISLSEVFROSL 


BSReRsBeeat 
22 


es 


700 
03 
704 
70S 
: 
709 


Ren: 
Sz 


PRSPM :TYPE END OF NESG 
WIDTH, -(SP) :# COLUMNS ON STACK AGAIN 
PC, $SB2D ‘CONVERT # 


wur-O 
NN 


£2 
Boa 


3 
2 ege gee 
—=9 


3 


LOAD 2 
PRSP4 :PRINT MESG ON LALSO 
ExIT ‘EXIT TEST 


: 
i 
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5 SEDER ESE SESE ER SERA REE RE HERRR REEEE RRR EEA ER ERE EERE REE 
-SBTTL PRINTING TESTS 


rv 


SITLL 
;TESTeO - DATA TRANSFER PATHS TEST 


HTWIS Test PRINTS 16 LINES OF ALTERNATING *’S AND U’S IN A CHECKERBOARD 


an 


SSOSPALCLAPTTLALATATAETTAAAEAAALAAPAAAATAPEAASTATTAAT AA EA SAAT AAA AAAS 


TEST20: PRTHDR ;PRINT TEST HEADER 
MOV #°2U,R3 :SET FIRST CHAR PAIR 
t ;SET LINE COUNT 


SBI 


Z 


foe] ae | oe | oe 
—— 


16. °Re 
R3,R 
WIDTH, R1 


RO 
Rl 
2 


1S: 
es: 


is 


E 


N 
EX] WHEN DONE 


gs 
if 
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PRINTING TESTS 


AAA ddd 
;TESTel - HEAD POSITIONING TEST 


THIS TEST PRINTS A SINGLE LINE OF a ere 0’S AND SPACES 
;THEN FILLS IN THE SPACES WITH X’S ONE AT A TIME. 


SOOPAALALTTLATATEATTATATEALATTATAAAETAAT AA LATAAAAAAAET AAA ALAS SETA AAAS 


TEST21: PRTHDR sPRINT TEST HEADER 
MOV WIDTH, R1 SET COLUMN COUNT 
1$: Mov #60, R0 SET CHAR 


LOAD CHAR 
DEC CHAR COUNT 
PRINT LINE WHEN LOADED 
;SE SPACE CHAR 
;LOAD SPACE 
sDEC CHAR COUNT 
FINISH LINE 
PRINT LINE 
SET FIRST CHAR COUNT 
CE CHAR 


Bere 
: 


ea 
Ee 
-_ 
— £ 


=8 
i 


3 ‘AD 2 v2 TO GHAR COUNT 
DONE LINE? 


:NO, FINISH LINE 
YES. ADV BNCE PAPER 
EXIT TEST 


752 
753 
754 
ree 
757 
758 
759 
760 
761 
ais 
764 
765 
fe? 
768 
776 
771 
772 
773 
774 
775 
778 
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AAA ddd 
; TESTee - BACKSPACE TEST 


32 LINES OF X’S INTERSPACED WITH DASHES WILL BE PRINTED BY PRINTING A SLASH, 
;EXECUTING A BACKSPACE, AND THEN PRINTING A BACKSLASH TO 

;COMPLETE EACH X_ CHAR. 

3A MAXIMUM OF 127 COLUMNS WILL BE PRINTED BY THIS TEST. 


SOOSAPTILAATTITAATATATTAATATATAALAT TATA LATTA LATA AD ATTA AS SASS 


04412 TEST22: PRTHDR ;PRINT TEST HEADER 
2702 ooo002 MOV #2, Re SET LINE COUNT 
701 001130 1$: MOV WIDTH, RL *SET COLUMN COUNT 
0177 CMP R1, #127. # COLUMN 


127 
000177 xt MOV : 127 
003510 23: PRINT OS LOAD SLASH-BS- BACKSLASH 
DEC Ri LOUMN COUNT 


ee 
eyeR 
R252 


8 
é 
-oO 
i 
8 
anges 
g 
3 
» 


oS 
% 
a 
wm £ 
Ed 
2 
2 
5 


NE 
001142 3S: PRINT .SLF :PRINT LINE 
DEC Re : 


fo 


2 

2 

ane 
<= 


1$ ; 
EXIT ;EXIT TEST 
10S: eASCIZ § <57><10><134 


8 BSF 
4 
8 
er 
% 


elstetetetetetatetee eRe RRR tte etter ae 
gy aus 
8 
@ 
Be 
qj 
: 





furore 
oun 






BOY 
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LIFLAPEEEPILASTATET LESTE TATGGTTALAGSTATTIAATALETATAAG AAS SAS SAA 


;TEST23 - CHARACTER GENERATOR TEST 


THIS TEST PRINTS 8 SINGLE LINE (90 CHARACTERS LONG) OF EACH PRINTABLE CHER 
‘ORESEDED BY A LINE OF ALL SPACES 


SLAPLLEISEL IAAL ASLABATALDTTALSAAALAGETDATLPPPEAAD ATTA S TE IAT LATTE AS 


TEST23: PRTHOR ;PRINT, TEST HEADER 
MOY «840, RO ;SET FIRST CHAR 
18: MOV «830. , RI ;5ET CHAR COUNT 
MLOAD ;LOAD LINE 
PRINT ,$LF PRINT LINE 
——. ;SET NEXT CHAR 
cMe RG, 817% ;CHAR = RUSOUT? 


i 
EXIT 





Hz 
- 


in 
- 


3 


fo 
wo 


Z 


Ooo0o00— 
= 0-< pe 
das 
J 
= 


: 


© 
8 


Sue 


ULES Ee aac nc paci ars 
Bg 


2 
2 


S 


CoRR 
oe 


: 


agian at 
SEBS 


: 


& 


2 


<BR 
ae 


ae 


OQ 
— 
a 


® 


% 


ft 


MACYI1 e7(6S7) 
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000941 
000036 
oo03 


900035 


301130 
000177 
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SSOSAALOSTELATTSSSTPTAATLALE ASSIST TEAITATTPFATAAT DATTA ATAA AAAS SS ASS 


;TESTe4 . NOI-PPTNTABLE CHARACTER TEST 
{THIS eu q 7 LE SWIRL oe tg Be RENT ARLE paid 


: LOADE PRINTI AREAS 9 
: CHARACTER BUFFER hy THE aren. IF Net S Test is , fe5 Toe “THE SWIRL 
:PATTERN WILL CONTINUE LINES PRINTE Test Is L30PeD. 


HAMA LAA AAA 


TEST24: PRTHOR PRINT TEST HEA HEADER 
NOV s35°°8 T LINE C nt 
iepth Bi £3 UMN 
MOV 8255.3 :SET ER SI 
1, ;SUBTRACT COLUMNS COUNT 
eL 4 -tCLEAR CHAR TI UN 
28: Ug #29. ,R3 : :DIVIDE NON-PRINT CHAR COUNT BY 29 
Inc RY “  3R4 = NON-PRINT CHAR INC COUNT 
38: CLR. OR sCLEAR NON-PRINT CHAR COUNT 2ND BLOCK 
4§: sus BESS. ,R :CALCULATE # NON-PRINT CHARS, IST BLOCK 
328 R3,R1 
JS Po 10s LOAD 1s7 BLOCK OF NON-PRINT CHARS 
MOV WIOTH, RL Se! aP Rel ean Sa CHARS (COLUMN COUNT) 
MOV Re, RO SET FIRS 
S$: LOAD :LOAD PRINTABLE 
DEC RI [DEC CHAR CONT 
BEO 6$ *BRANCH IF DONE PRINTABLE cHARS 
INC aA :NEXT CHAR 
¢ RG, 8177 CHECK CHAR 
BNE ie = CONTINUE 
MOV #40, RO ESET CHAR = SPACE 
mf seen 
6$: MOV R3,R1 T 8 NON-PRINT CHARS and 8.0 BLOCK 
JSR PC 10s PEA 2ND BLOCK NON-PRIN 
PRINT SL :PRINT LINE 
C RS :DEC LINE COUNT 
T S : CONTINUE Tes! 
STB LOOP :LOOP ON TEST? 
BNE 3 YES, INITIALIZE 
BIT 8SW14, ISWR :LOOP ON TEST? 
BNE $ :YES INIT ALIZE 
IMP EXIT SEXTT TEST 
75 MOV $30., *RESET LINE COUNT 
CLR RS . s CLEAR NON-PRINT CHAR COUNT 
9 :CONTINUE SWI 
8$: ADD RY.R3 : INc NON-PRINT CHAR COUNT, 2ND BLOCK 
95: MOY WIOTH,RI RESET COLUMN COUNT 
INC . <2 :INC START CHAR 
CMP Re, #177 :CHECK START CHAR 
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883 Sossve O14 000M 
003782 000717 


009007 
000010 
000012 
000014 
000015 
0009040 
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s ee PTE 
MOV 841,Re RE ie START CHAR 
BR 4 
SASSAIPPIALALIILEPSLSS SAAT LAS PTAA APTAAAAAATTATAAA AAS OA AT ASS ISAS ASA AAAS 


;ROUTINE TO LOAD NON-PRINTABLE CHARACTERS FOR TEST 24. 
SPSPPITALALELTTTALTAPTATTLTDEPTADTITDTTTTTAPETTTTAETTTTITAIELAST TSS 


10$: TST Rl ;TEST CHAR COUNT 
8FQ 4 ey Flea IF ZERO 
11S: L 0 T FIRST NON-PRINT CHAR 
128: LORD :L ORO CHER 
EC R1 C CHAR COUNT 
BLE 14S *RETURN IF DONE 
13$: INC RO sNeXT CHAR 
CME RO. #7 = BELL ? 
BEQ 13¢ types NEXT CHAR 
CMP RO, #10 :CHAR = BS? 
BEQ 13$ 2 YES NEXT jCHAR 
CMP RO. #12 ;CHAR = 
Q 38 YES, N NEXT "CHAR 
MP #14 :C FF? 
SEO 13$ :YES. NEXT CHAR 
CMP RO. #15 :CHAR = CR? 
BE 13¢ YES NEXT ator 
CMP RO, #40 HAR = 
BEQ 11$ bs RESET EAR 
BR 12$ : CONTINUE 
148: TS pC : RETURN 
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z 
oe 


\ a 

fy 
<0 0 oo pe 
OD IM UE Gs 


SSPFOSSOESALETALASSALSAITAIATTAAAATAAAAATAELA DALAT ASAT AAAS AAAS ASA SSSA 
;TEST2S - BUFFER TEST 

; THIS TEST CHECKS THE CHARACTER BUFFER OF THE LA180 MAILE PRINTING. 
thay NPaece [UNES ean Be Usebe TO CHECK HE BROPER PRINTING WIDTH 
ANY E PRINTED INDICATES AN INCORRECT LOAD OR BUFFER ACTION. 
SSOPLASIOSTATSSALSALTASPALACETALAATAATTATELATAAS ALAA TAASS AAAS A LAA SASS 
TEST2S: PRTHOR es sPRINT TEST HEADER 

SEARO SET : CHAR 


8177,RO0 


ODO0000 


T= 
Rue 


Se 


8 
~ 
Ss 
bm 


: 


TINUE 
NEXT CHAR 
OADING CHARACTERS 


2 > -+b- 2 b= Go & = 6-2 > = & <-> 6 b-- 9 -+ b+ 0 © 2 § -2 & -2 PH -o 
bs 
— WU we 


SERS e eee e essere 
a 


BER 


— 


é 


OOO Or- O0r- - OO 


— 


Me nRRol YI ESCMRERTCRERS 


25 


— 
~-_ 
<£= 


$20 
331 
S22 
$23 
$24 
32S 
S26 
$27 
928 
$29 
930 
$34 
935 
936 
937 
9338 
$39 
940 
$41 
$42 
S43 
S44 
945 
S46 
947 
948 
949 
959 
zs 
9S3 
954 
965 
956 
957 
9s8 
959 
969 
961 
962 
S96 


ets 
we 


;DONE ZEROS? 
3NO, CONTINUE 


R 





FO4 
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012700 000061 #61, RO YES, SET NEXT CHAR 
13 001142 : ,SLF 

O1e701 00409 MOV #256. ,RI 

12700 #E, RO 

bre708 #177,R0 


104414 re 
Bt 7 130° Be 
1 1 MO WIDTH, Ri 


:GO00D CHAR’ 
sYES, CONTINUE 

3NO, RESET CHAR TO ZERO 
; GROUP COUNT 


#61,RO 
NIOTHORI 


RO 

RO, #72 
#60,R0 
R 

ocLF 
ExIT 


1 
. 
o 
q 
= 


3 

>| 

3 
75 
380 
981 
982 
983 
984 
985 
ae 
988 

989 
$90 
991 
982 
933 
934 
935 
37 
398 
660 
001 
00e 





z 
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I 
PRINTING TESTS 


C- 
?P 


oe 


p AS 


SLLLALLASLASLATITOALTTATTALTAATATAA TATA A TA IAAL DIDI DATTA TASS 
3 TESTe - OVERPRINT TEST 


iTHIS TEST PRINTS FOUR LINES OF ALTERNATING CHARACTERS AND SPACES 
;IN A CHECKERBOARD PATTERN. EACH LINE IS OVERPRINTED TWICE. 


ALAA ddd 
TEST26: — | sPRINT TEST ye 


0 0 = 0 0 pp 
iste tetstate tris 
—O 


=OB000-- 
t- bo h- = pe 
ee 


3S: 


ONdOOVMO000O 
OONIWU CITY 


aes CLUE LLinaa 
zap Gs 


l 
1 
1 
1 
1 
1 
i 
i 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
i 
1 


REERER SEN rues 


SRZ8 8 
: é 


sEND OF TABLE 
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ib AAA AAA A 

t 33 ;TEST27 - MULTIPLE LINE FEED TEST 

l NUMBER PRINTED INDICATES NUMBER OF LINE FEEDS FOLLOWING THAT LINE. 

1041 :DASHED REFERENCE LINES ARE PRINTED TO AID IN CHECKING PROFER 

104 sLINE FEEDS. 

ieee $ SAGFTATETAAAALAATASAAAAAEAAAEASOASTOATATTALAAAAAAAAASAAAASAAA SSAA ASSS 

1048 004516 1owu1e TEST27: PRTHOR senant TEST HEADER 

iba Lie sade 1S: HOVE coe a5iSP) sNUMBER NTO aer 

1049 004526 004737 011120 JSR 0 

1050 004532 104416 CNLOAD 

1051 o04534 121387 000001 CMPB pny 

1082 ate H 1406 BLOS iB me PRINT ‘FULL L DASH LINE IF 0 OR 1 

bee tele? GB0010 gros 4 1,48. baa - PRINT 29 D 

Tose poseed Agouo? BR + 38 ; ‘Peunt 53 bacnes 

1057 004556 013701 001130 2s: MOV WIDTH, RI \ $18 08 

1058 O04562 020127 000036 CMP R1, #30. : CHECK we © 

1059 o04S66 BHIS :O0K, CONTINUE 

1060 004570 012701 000036 MOV #30. ,R1 :SEt TO 30 

1061 904574 1 3$: DEC R1 :SUBTRACT ONE 

1068 oove76 0ie700 O000Ss 4g: MOV #55,R0 :SET DASH CHAR 

1 104415 MLOAD *LOAD DASH LINE 

1064 111301 MO (R3) RI SET LF COUNT 

1065 1 001142 MO ,RO :SET LF CHAR 

1065 OO46l2 10441 MLOAD ;LOAD LF’S 

1067 004614 108723 STB (R3)+ sINC Tf gy INTER 

ines Spars 005516 JMP bir teat TES 

1071 oo4s24 001 oo2 004 SS: -BYTE 1,2,4,8.,16.,32.,0 

1072 O0046=7 010 020 040 

1073 O0463e 000 

1974 

1975 004634 EVEN 
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SOCSSLPLTTTLEATILLALAATT TATA TA TATA TATTETA PEAT TIATED AAAS 
; TEST3O - RISBON FEED TEST | 

THIS TEST PRINTS A SINGLE COLUMN OF 24 LINES OF X’S DOWN THE LEFT 
;HAND MARGIN OF THE PAGE. 


Bree Re 


WAAL AAA 
TEST30: PRTHDR Hae T Ot 


4. RI 
18: Pet ¥ : X- | 
DE Ri :DEC CLINE COUNT 
1§ : FINISH EST 
EXIT EXIT TEST 
/X/« 12> 


SSLOSASPSOTPALILALTATEELTLTTSATLALALATELAATALAAATALAEAEAAALAEA ALAA ASS SS 
;TEST31 - BELL TEST 
:THIS TEST WILL SOUND S BELLS BETWEEN PRINTING “BELL TEST™ 
HL 
TEST31: PRTHDR ;PRINT TEST HEADER 

PRINT ,1$ 300 TEST 

MP $e op :EXIT TEST 
1$: eASCIZ ¢(7)>/BELL/<7>/ TEST/<7>415><7><12>¢7><15> 


BERR ER Boe Se LOS 


BBUFRIBH-B 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 


6-0 -b 26 20-2 6-- b- +0 <0 > = §-< 9+ & + 9 -- 9 


0+ 0-0 p pe 
£Wwtue-O 


-EVEN 





z 
a 


Fad 


» 
NOU Fad 


O~ 0-26 -— & -— —— =H 
att 


Tu 
~- 


0 0 b = b— 0 6 6 5 = BF & & ~~ Fb 9 = 0 0 6 8 9 9 pe pe 


ESSASREREORE SELON 
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5 BEERS EEE 9 J A AE J EE EEE Ee aE 

-.SBTTL END OF PASS ROUTINE 


Dimi, THE He i ONTTOR GO TO dee 


F THERE ISN’T JUMP TO EXIT 


7 aa 
oie 900240 
004720 005237 004772 INC $PASS ;s INCREME NENT ont pass NUMBER 
oozed pea? 100000 004772 BIC #100000, $PASS s:DONET ALL . NUMBER 
(PC)+ ? 
004734 000001 SEOPCT: .WORD 1 
004736 003013 BGT SDOAGN YES 
004740 012737 MOV:  (PC)+,a(PC)+  $:RESTORE COUNTER 
004742 000001 SENDCT: .WORD 1 
004744 004734 SEOPCT 
004746 SGETH2: 
OO4746 013700 900042 MOV ae42, RO GET MONITOR ADDRESS 
0047S- 001405 , BEQ SDOAGN 3 | BRANCH | F NO MONITOR 
oo4 99905 . RESET ::CLEAR THE WORLD 
004 004710 - SENDAD: JSR PC, (RO) 33G0 TO MONITOR 
004760 NOP $3 s SAVE ROOM 
904762 NOP ::FOR 
004764 NOP s;ACT11 
BeNoee 00SSi6 — JMP 8EXIT ssRET 
peas aan '. $PASS: WORD . SINUMBER OF PASSES 


wee eee es - 


PRUE CoO Od VOUT 2 OdrOr CSeDeD WEP UNE WO Bed GOUT E LoPOH Ceo IO 


R 


O° b= b+ b= = bb 0 0 = 8 8 0 bb 8 0 0 0 0 9-2 2 be oo 
- 


> +--+ b—- 6 - 6 — bb b = 0 b= & * = 6 = 0 = 8 = 0 0 0 0 2 0 bo bo pe ho = bb = 2 9 ee pe 


KO4 
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5 BEER EE 9 9 A EE EA a a 
-SBTTL MAINTENANCE AIDS 


SCSALATIITILATTTATTATTLAAATTATTAATTSAATATAT ATA AATE ETAT A ATA ALA ALATA SAAS 


; TESTEO - LIFE TEST 


:TMIS ofthe Pets 2 FULL Lie OF EACH PRINTABLE CHARACTER 
Se preer RINTED 4 TIMES TO TNS PAPER 
at at TEND Oe THROUGH THE EN SATS rat ame CHARACTER 
SS SUNT PALL BE PRINTED ON LA180. 


SAOSAATLELILTTTTLSLAETTAAATATTTAAAPTA TAA TTAA LATTA AAS ASDA AAAS S AAAS 


gow774 005037 005106 TESTO: CLR PASCNT . %sCLEAR PASS COUNT 
1049412 1$: PRTHDR sPRINT TES TEST HEADER, FEED BLANK LINES 
fem blest Ga my tb? nt 
& 013701 9011 2s: MOV WIDTH, RI :SET COLUMN C 
OOSOle 10441 MLOAD 3L INE 
005014 104413 o01142 PRINT ,SLF sPRE LINE 
01 oo000s MOV 45 Re *SET OVERPRINT COUNT 
posted 0 3701 001130 38: MOV WIDTH, R1 *SET COLUMN C 
10441 MLOAD *LOAD LINE 
eos032 104413 O01144 PRINT ,SCR :PRINT LINE 
605035 DEC Re iDEC OVERPRINT COUNT 
001 BNE 3$ >FINISH OVERPRINT 
posdie 04413 001142 PRINT .SLF ADVANCE PAPER 
INC RO :SET NEXT CHAR 
005050 020027 000177 CMP RO, #177 TEST CHAR 
bos0ss 001354 BNE 0K, CONTI 
005237 005105 INC INC PASS T 
005062 10941 13310 PRINT  ,PASMSG LOAD PASS C MESG 
005066 O1 106 MOV PASCNT.-(SP)  ?:PUSH PRECNT- ON STACK 
005972 O04 011120 JSR PC, $SB2D : CONVERT 
005076 10441 CNLOAD *L0 . 
005100 OH) 001142 PRINT .SLF :PRINT MESG 
005104 7 BR 1$ *START NEXT PASS 


1 oo00c PASCNT: .WORD O- ;PASS COUNT 
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MAINTENANCE AIDS é 


SCASTLLASTTLETTAATALALALTAAATAET TT ATTAATATALIDATTIS ETAT TTA ATA 
;TEST61 - SCOPE DRIVE ROUTINE 
‘THIS TEST WILL vhs A_CHARACTER SET Th Sune REGISTER we ys> 

NO LINE FEEDS OR’ CARRIAGE Rot Gee eh, POA te 
TAAAAAAAA 


TEST61: PRTHOR iCHECK Sk TEST HEADER 
R Pace REG FIRST 
10S: COUNT 


1S: 


SSS SRRIGNS 


8 


Rnaiasiasinsindsob-sb-abshabetob-oteshehenene 


2 


3 
7) 


Sik UNWANTED BITS 
ee 


ic RESET COLUMN COUNT 
*PRINTABLE CHAR? 


S, 

N-PR 

YES, *T DEC’ COLUMN COUNT 
Bind a 


TI 

SET COLUMN COUNT 
TE T SWITCH ? 
3PR NT FULL L ' 


Ope 
00S 
O08 
005 
Oe 
e 
ee 
ee 


SINTORINAESRRSP SS 


GET NEXT CHAR COUNT 
CONTINUE IF NOT >HBTH LINE 
st ROE MORE THAN WIDTH? 

S, CLEAR BUFFER 


g 

=r 
3 
F 


ne 
Sues ot 


SPRINT LINE, ADVANCE PAPER 
; CONTINUE 


ow 
baa] 





MAINDEC-11-DZLAE-A 
DZLAER 


Pll 


001153 


1 

oe 

104400 013413 
105777 173636 


1p44 ? 

b17700 173630 

004737 0071 
00020: 

004737 007172 
001130 


104413 001142 


MACY11 27(657) 
MAINTENANCE AIDS 
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Add 
; TESTE2 - LINE PRINT TEST 


:THIS TEST PRINTS FULL ia co TMU. OF gle gi Ay 


31S TYPED ON pe ERROR hese gece TQ SHES CHARACTERS, RESELECT 
sTHIS TEST, SG WILL BE PRINTED IF THIS TEST *ts SELECTED 
sAND A CONSOLE” TERMINAL DOES NOT EXIST. 


SAOSALAIIATTATLTIAAAATTATTAATAAATAET PEA AAAAAAAAA ATA A AAA A AAA AAA AAAS ASS 


TEST62: PRTHDR sPRINT TEST HEADER 
TSTB STPFLG ; CHECK IF TERMINAL EXISTS 
BNE TERR “EXIT IF NONE 
ns TYPE TCHAR :TYPE INSTR 
2S: TSTB TKS WAIT FOR KYBD FLAG 
CHECK CK CHAR FOR CONTROL 
MOV JTKB,RO KASH 
MOV RO, -(SP) +30 ONTO STACK 
JSR PC’ $TYPEC ECHO CHAR 
MOV #CRLF,-(SP) >SEND CR-LF 
ISR PC, $STYPEC 
1S: MOV WIDTH, R1 ;SET COLUMN COUNT 
MLOAD ib L 
PRINT ,SLF PRINT LINE 
BR 1$ : CONTINUE 


Nn ee eo =< 
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DZLAEA.P11 MAINTENANCE AIDS 

1338 SOOOSSLAALTSPOPETLALETTTTTLTTTTAAATAAEATAATAESTDAAT ATE AAAS ATLA AAA AA 

1e58 ; TESTES - CHARACTER PRINT TEST 

1258 THIS TEST abe Sec TER BY SoMREE TER IS TYPED ON THE CONSOLE KEYBOARD 

1522 iP THs Tey EB, Ane AT CONSOLE TERMINAL DOES NOT EXIST, 

1259 RROR RESSACE “tLL BE PRINTED 

iste LLL 

1263 005304 104412 TEST63: PRTHOR SPRINT TEST HEADER 

1eb4 005306 105737 001153 TSTB STPELG 5 CHECK IF TERMINAL EXISTS 

1see Pheste tess agua —E | TCHAR Lot E INST 

24 peasy iperee ree 1$ 18 aoreer ‘aa eRe Le D FLAG 

ies Spessc 1 3 2 L 1$ Watt F Ke 

1270 005332 10941 CHECK i CHECK OHA FOR CONTROL 

es a RY SS, Bday stack 

1 ppese 007172 JSR PC, STYPEC ;ECHO CHAR ‘ 

1274 005346 104414 LOAD sL OR Cuma 

1275 995350 O20027 000015 CMP RO, #CR ND LF AFTER CR 

1276 005 001003 BNE 3 

1277 005356 01274 oo0012 MOV aLF,-(SP) 

1278 005362 000413 BR 4g 

1279 4 900012 2s CMP RO, #LF ;SEND CR AFTER LF 

1280 1 BNE 3$ 

1281 012746 oo00015 MOV #CR, -(SP) , 

1282 005376 oo040s BR ta 

i283 005400 O20027 oo0014 3S: CMP RO, aFF ;SND CRLF AFTER FF 


1284 O0S404 001347 
1285 Beate phere 000200 
1e85 O054le 004737 O007i7e 


1287 O0S416 


1288 
i880 Goewes Ooo? dssi6 


BNE 
MOV #CRLF,-(SP). 


4$: JSR PC, STYPEC 
BR 1$ 


TERR: PRINT 


MSG 
J EXIT 


; CONTINUE 


Xt test 






Reese 


BoCe 


WWIII WLILILS 
* 0° 9-2 b= 0 = 9 © 6 - 9-2 9 oh ° 
NMOU£ UIT t9 


nv) 


9 


00D 


Lott ELI WIND LIUIEIUII EIS E2LIEIEIEIEE? 
[ ed 


i) 
fu 
3 















BOS 





Col) 1-USLAE TS Ray ag. (887) {O-NOV-75 15:14 PAGE 33 
i) Ds 


SEFOL AE ETOPEISALSLIATITSTSTTIITTATTATALETTSTLATTTTTA ASAT TASAATTSSSLS ASS SAA 


.SBTTL CLOCK INTERRUPT SERVICE ROUTINES 


SELLA IELTTPLESLALSAATESTATSFTFTAL IAAT TATTALITATT TASS TETTAT IAEA AAA SASS 


430 9047 7 posses OCI: JSR PC SROCI ;DISASLE LE KML INTERRUPT 
434 600177 00022 IMP aTORTN *TIME OU 
Buc 337 o0S460 LKSRV: DEC CNTR DEC TINE COUNT 
S444 001491 BEQ 1$ : TIME oY ? 
446 3000 RTI :NO, RETURN 
450 737 QOsHes 1s ISR PC. SROCI :DISAGLE KUL -L INTERRUPT 
454 1 ooe2 JMP aTORTN : TIME OUT RETURN 
o9s4s0 990000 CNTR: .WORD 0 sKWL1-L TIMING COUNT. 
005462 000000 TORTN: .WORD :TIME OUT RETURN ADDRESS 
oos464 097020 _ MINCNT: .WORD 7020 ;60 HZ LINE FREQ. MINUTE CCUNT 
a :SET TO $670(8) FOR SO HZ. LINE FREQ. 
SSIATIPLIFISAASLASTELITTIAPESLTESTTTTTTTATATAEATATASATS PASTS ASS ASA AAAS A 
;SUBROUTINE TO DISABLE CLOCK OPTION INTERRUPTS 
He SASSAGS GG GS 
SOSHEE 105737 601135 SROCI: S18 SKFLAG s CHECK CL0 CLOCK hose FLAG 
Baeucg Boba BY iBeaNen fF k 
76 #BIT6, dLKS :DISABLE Kut INTERRUPT 


O4e777 O0C19C 173414 
009403 
009100 173400 





C 
€  . shieteateatig spe eN KW1i-P INTERRUPT 


fuo- 
99099 


0SSOE 9 0427; 
005514 000207 





DILAER. PLL 


BSS Thro Cae e Re 
a 


JG) 


urs 


1333 poses 
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CLOCK INTERRUPT SERVICE ROUTINES 


B88005 


000400 


173372 
173362 


001126 


SLAPS PATTSFSPSELLSATLITTEA LIGA ATATTAATTASSAIVTAS DATS AAAAAATA ASA SASS 


COS 


~SBTTL TEST EXIT ROUTINE 


H AMARA AAA AAA 


EXIT: 


4§: 


aft 


wSil4 Soa 
sie. 
fre 


foe RO 
FaTCRO) 
4$ 


2s 

#20, STSTNM 
eSTACK SP 
aTATK 


TATIRO) 
















ICGOP of Tesy Sulton 
YES RETURN T 


sent eeett Test SELECTION? 


swyeo CTR RETURN 9 TEST 
*KYBO CTRL = RUN TEST ONCE? 


unreR 
; CHECK a IN TABLE 
30K, GO TQ TEST 


RO, SKIP TEST ae 
nce RESET TEST # 10 20 : Ps 
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TEST EXIT ROUTINE 


z 

~< 

«ay 
i 


| eed ed 


PRSES Se 


p RERERREREERREERESEEEEL ARSE EREEEEE ERASED LE RESED EAS EEEEEEL SEES SE 
~SSTTL ROUTINES TO SELECT DESIRED TEST 


WAMAAAAALL ELL 
;ROUTINE TO SELECT TEST FROM SW REG, BITS 0-5 
SYILLPIITIILATI ATA LITA LET IST TAT IITI ATT ATT ATT ETAA TATTLE D EY 


SELECT: JSR PC, SROCI ’ sCLEAR CLOCK INTER 
C STRONE :CLEAR PROGRAM CONTROL FLAGS 


ONE 
TLOOP 
PC ,KYBOF ;CHECK IF _KYBD PLaS 
FLAG - 


:NO_K 
;WALT FOR yong On to SELECT TEST 
s PRESS CONTINUE WHEN READY 


TEST ONCE & HALT 


g 
4 


o DhaPtadtadtabtadtabtadtadtadteten 


65 
361 
35 
364 


’ 

1 

1365 
i366 
3367 
1368 
1389 
ize0 
1378 
ive 
1375 
1376 
1377 
1378 
1373 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
i331 
i393 


#SW8, ISWR 
#-1, STRONE 


ae : 

RO, gretne sSBVE TEST NUMBER 

RATCRO) Steck TE TEST Te IS IN TABLE 
SELECT *NOT THERE. GET NEW SELECTION 
BSTACK, SP :RESET STACK 

aTAT(RO) ; 360 TO SELECTED TEST 


SSISITTTETITTITALT ESTATE LATASALAPLEPSLATAETATELLEAPALTTPELELS LASTED LEED EE 
;ROUTINE TO CHECK FOR KYBD OR SW REG CONTROL 
;CALL: CHECK 


SAISTPPPITLATLEATITTELATETSTTELESTEDETETOLLLLTTLELLBELEDESELEIDELEELADES 
SCHECK: JSR PC, KYBOF ;CHECK FOR Kya0 FLAG 
MOV PUSH MI ON STACK 


RO’ -(SP) : 
RO’ pte 

8SW8, ISWR : CHECK ate 

1§ BRANCH IF SW DOWN. 
RO jeer FLAG IF uP 
STRONE, RO :CHANGE IN SWITCH? 


2g RETURN 
SELECT yee, SELECT TEST 


(SP)+,RO : fis le INTO RO 





EOS 
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‘DZLAEAR.P11 ROUTINES TO SELECT DESIRED TEST 


SSOSSSLALTLTISAAITTALATATAS PATA ATATTTAETS SOIT AATIAAA SAAT ASA AAAS AS AASS 


;ROUTINE TO WAIT FOR OPERATOR ACTION 
SOCCIPLATALLALTALTIALTTATTTATATIT LA ATATTTA TTA T STS STA DTT ATT 


iv ‘ORANGH Te YES” 
eur CONTINUE SWITCH 


NO etc FOR FLAG 
: RETURN 


cee 


G2 


SCLPPLISUITETTATATITTTTTS TELA STTATATTTTADTTTSTTLTS SITET TTESSSSAE LASS 
jee May TQ CHECK FOR KEYBOARD FLAGS 
WHEN LOOKING FOR CONTROL FROM THE CONSOLE DEVICE KEYBOARD 
CALL: JSR PC, KYBOF 
SOLILLATTTAELTTLTATTLAAELTLETASTATTATLAOETATTTTTTTTTATLALTA LAA LL EDTA 
KYBOF: STB STPFLG ; TERMINAL THERE? 
BNE $ ; x 


i378 aTkS 
L 1$ 


: 


es: 
SWR, #SWREG 


#7, (SP) 
4§ 

(SP)+ 

hy 

OSMSG1 
SWREG, - (SP) 
, DSMSG2 


Boeoos 
005026 
BoeO3 
BoESNS 
006046 
Bede 
o06960 
006072 


i SW SETTINGS ALONE IF NO INPUT 
CET NEW SW_REG 

;RETURN TQ TEST 

;CHAR = 


: BRANCH 1F NOT 


Sitatatatatat stats 
SEOEVNRVS EOFS 





FOS 
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ROUTINES TO SELECT DESIRED TEST 
TYPE CRLF :ECHO CRLF 
TST tEHECK INPUT FLAG 
i Be 505 TEBE SW SETTINGS ALONE IF NO INPUT 
013737 20$, SWREG ‘SET NEW Sid REG 
b1 R :60_70 TEST SELECT 


Toet (SP) i MASK 
#60, (SP) 


pcs TiPec 
20$ 


o 
woe PIE 


oan SS 


“es 
ey 


7) 
wo 


ASCII 
SPRINT DIGIT - 


ae K_OIGI 
SHIFT SWTICH SETTINGS FOR NEW ONE 


_ sADD NEW SWITCH 
30S T INPUT FLAG 


SSECPELERLS 


9$ : 

8177, (SP) — = RUBOUT? 

38 CHECK AGAIN 

TSEL ives GET TEST SELECTION 
#3, (SP) CHAR = CNTL C ? 

KYBDST :YES cer # COLUMNS 

(SP )+ sRESET 

PC NO, 

Q :SH_SETTING INPUT 

6 INPUT FLAG 


> °0—- >< - P— & = § < & = 9 9 9 + pp 


£ 
“J 
~ 


1 

] 

1 
006164 
17e 
174 
Goesig 
14 
20 
24 
30 
eae 
006246 
006250 
0082Se 
006256 
006260 
O062e6be 
006264 
008266 





pee ce ti" -DZLAE-A 
OZLAEA.P 


1504 


= bt = 
atari teist ots 
9b 
Wrure-O 


i 
ul 
~~ 
£ 


0 pe 
uwuluwi 
oo 
aon 


oe 


SORES 


UU UTUT UU UTUTUT 


aoe 


ss 


=+ 
a 
1? 


pep 


MACY11 


7 (657) 


ROUTINES TO SELECT BESTRED TEST 
AAA ddd ddd 


;ROUTINE TO SET NUMBER OF COLUMNS FROM CONSOLE DEVICE KYBD 
AA dd dd 


sey 


2g 
ig 


KYBDST: 1SR PC, SROCI 
" PE , COLUMN 
ov (SP)+_. RS 
che R5, #132. 
ac 2 
1S ae SSoues 
; rire "SCRLF 


38: ABV £2 WIDTH 


GOS 
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a cau es MESSAGE 


;BRANCH IF 
; INPUT ERROR - TYPE QUESTION MARK 


;GET T AGAIN 
:0K, # COLUMNS 


SAOLSITITTTLTAATTELATTELELATTATLATTLAATATTATAD LAAT LTT LTSLTLT TT LT SS 
;ROUTINE TO SELECT TEST FROM CONSOLE DEVICE KEYBOARD 


ST 38 Soy BY INPUT CONTROL CHARACTER. 
BE OCTAL bape 


FOLLOWED BY ONE OF THE 


RUN TEST ONCE AND SELECT NEXT TEST 
LOOP ON SELECTED TEST 
START TEST SEQUENCE WITH SELECTED TEST 


a pat aR dp ds Ne eS 


3 AND DETERMINE 
TEST NUMBER 
“FOLLOWING CONTROL CHARAC 
; PERIOD . s 
; L = 
bale 
TSEL: SR PC ,SROCI 
- dire TRONE 
CRESTRON 
TYPE. SSELTST 
cs: ROLIN 
MOV (SP)+,R5 
MOVB © (R5)+_ RO 
BIC #10177, RO 
BEQ KvoST 
CMP =—saRO, #60 
BLO 4$ 
RO, #67 
BHI 4 
BIC 8tC7,RO 
SL sO 
ASL SRO 
ASL RO 
MOVE = (RS)+,R1 





ict EOR CLOCK 


ai" Cc TROL FLAGS 


; TYPE SELECT TEST MESG 
GET TEST SELECTION 
TACK INTO RS 


der TEST # N RO 
sQHECK TF IF CHAR = CNTL-C 
OLUMNS IF CNTL-C 
sre P OCTAL NUMBER 
NOT OCTAL - INPUT ERRO 


tor OCTAL_- INPUT ERROR 
- STORE DIGIT 


;GET SECOND DIGIT 


SEQ 0058 


1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ie at iA asa EE 
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ROUTINES TO SELECT DESIRED TEST 
#t0177,R1 
Gi #60" 


its 


al, , 867 
#tC7,R1 
1,R0 

RO; STSTNM 

RO 

TT (RO) 
(RS)+.R1 
#10177,R1 

R1, #56" 

1$ 

#-1, TRONE 


3$ 
PLR 
#-1, TLOOP 
ae »RL 


85 
8 


25 
a2 


3 


é 
ae 


Se! 


<8 
3 


= 


aSTAC 
eTKOy 
, SQUES 
"SCRLF 
&§ 


Bie 
2883 


;CHECK IF AN OCTAL DIGIT 
;NOT OCTAL - INPUT ERROR 


= Haak ce OD et ERROR 
MAKE COMPLETE Test NUMBER 


FER 
IN_TABLE 
T NEW SELECTION 


CONTI 
SET F 


YES, SET 
wen = iPS BIT S (ALLOW UPPER OR LOWER CASE) 


TACK 
- GO TO SELECTED TEST 
ERROR 


31 
:PRINT Spe a MARK 
GET NEW INP 





10S 
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DZLAEA. ROUTINES TO SELECT BesTReD TEST 


H 5 RERARARRAAE LARA ERLAA AREAL ALLA E REAR LALA LE RLAA SEALER ALLER ALLEL 
.SBTTL ERROR HANDLER ROUTINE 

;THIS ROUTINE WILL SAVE THE ERROR NUMBER AND THE ADR OF THE ERROR CALL 

Sur TEM OP Tons PROVIDED By THI THIS ROUTINE ARE: 

: Swi3 = 1 INKIBIT ERROR TYPEOUTS 

; BELL ON ERROR 


iees 


CALL : 

SERROR = EMT & N = ERROR ITEM NUMBER 

SERROR: MOY STSTNH, ADISPLAY;DISPLAY TEST NUMBER AND ERROR FLAG 
3 SB1T10°9SWR  ';BELL ON ERROR? 


3NO - 
SRING BELL 
18: :GET ADDRESS OF ERROR INSTRUCTION 


P AND SAVE THE pas ITEM CODE 
TYPEOUTS IF SET 


Bi REPORT” ROUTINE 


2s: : SWR ON ERROR IF SET 
ia 13 CoN CONTINUE 


38: 


SERRPC: .WORD Ser T ERROR INSTRUCTION EXECUTED 
SITEMB: .WORD . 


PRCA GEARS EREE Io oem e eee ee 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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DZLAEA.P11 ERROR HANDLER ROUTINE 

: 3 SASLILPAITALETTATATALTATAAA TT SATTTDTAAAA ATLA LTAT TATA AAAS T TTA STS 

: 33 sERROR REPORT ROUTINE 

1600 ERROR MESSAGE WILL USE THE FOLLOWING FORM: 

1608 ;TEST #XX, PC=XXXXXX, ERROR #XXX, MESSAGE >>>>>>>>>>>>> 

i SSALLALATTILATAATTIATLATTATTTAATTAT AEDT ATTA ATATAT AAA ET AAT AET ATA AT ASSETS 

1605 O06672 105737 001153 REPORT: TSTB  $TPFLG TERMINAL EXIT? 

1 006676 001035 BNE NO, EXIT 

1 bp6790 710046 MOV RO, -(SP) PUSH RO ON STACK 

1 1 3252 TYPE ETSTNO : TYPE FIRST PART OF ERROR MESG 

1609 006708 013746 001126 MOV $TSTNM,-(SP) }: TSTN ON STACK 

1610 7le | TYPOS : ST NUMBER 

ie} 006714 ope .BYTE 2 : TWO oigiTs MAX. 

1612 006715 001 "BYTE 1 *TYPE LEADING ZEROS 

1613 006716 104400 013262 TYPE PCMSG :T T OF ERROR MES 

1614 O06 013746 006666 MOV $ERRPC,-(SP)  ;:PUSH SERRPC ON STACK 

1615 006 104401 TYPOC TYPE ERROR PC 

1616 006730 104400 01327 TYPE ERR “TYPE MORE OF ERROR MESG 

1617 O06 013746 O066 MOV $ITEMB,-(SP) . :PUSH SITEMB ON STACK 

1618 006740 104402 TYP : YPE 

1619 006 003 BYTE 3 °3 DIGITS MAX. 

1620 00674 001 BYTE 1 :TYPE LEADING ZEROS 

1621 908744 104400 013304 TYPE ERRS : TYP 

ls22 006750 013700 006670 MOV $TTEMB, RO GET ERROR NUMBER 

1623 606754 006300 ASL RO :SET TABLE POINTER 

1624 906756 016037 011762 006766 MOV EMAT-2(RO),1$ SET ERROR MESSAGE ADR 

1625 006764 104400 TYPE :TYPE ERROR MESG 

1626 O06 000000 1S: .WORD 0 

1627 006 012600 MOV (SP)+,RO ::POP STACK INTO RO 

1628 006772 000207 2s: RTS PC : RETURN 


eee es - - =_ 





MAINDEC-11-DZLAE-A 
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or 
cpess2e229 
Taare 


—_ 
QONONDOKO00O0000 


pongze 
poodes 
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5 HERES SEE SE RE SE ESE EE EAR SE AREA EEE EEE EE EEE EEE 
-SBTTL SAVE AND RESTORE RO-RS ROUTINES 


;*SAVE RO-RS 
* CAL ° 


3; #+10---Re 
3 #+14---RO 


SSAVREG: 


MOV 

RTI 
;*RESTORE RO-RS 
;*CALL: 


* RESREG 
$RESREG: 


:% _SAVREG 
#UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


wWMw 

30 

wwe ww ws 
w 


322 Sop gpne 
AAAVssssss 


ee 
SHOAL OOHO 


RRBRAPARZ=B 


wee se 
owe 


furororu 


van an tana an an tan tan to 
ae D> ++ ai ++ 
DBDDAD ADA 


3 NT 
;;POP STACK Nt 
;;POP STACK INTO RO 


SEQ 0062 
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OZLAEA.P11 SAVE AND RESTORE RO-RS ROUTINES 


1875 Pettitt ttititittititititttiititittitirttitititttiiitttiitt titty 
-SBTTL TYPE ROUTINE 


;ROUTINE TO TYPE ASCIZ MESSAGES, MESSAGE MUST TERMINATE WITH AO BYTE. 

: THE ROUTINE Wie inn gl A NUMBER OF NULL at AFTER @ LINE FEED. 
iN NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER 
;NOTE@: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


~ 
o 


SERRE SBS Ie 


CALL: 

= : TYPE , MESADR ;MESADR IS ADDRESS OF FIRST CHAR IN ASCIZ STRING 
1689 105737 001153 $TYPE: TSTB S$TPFLG iIS THERE A TERMINAL? 
1630 007074 100407 BMI 3$ ;sLEAVE IF NO TERMINAL 
1691 010046 1$: MOV RO,-(SP) : SAV 
1692 por ine 017600 000002 MOV adetSP) ,RO GET ADR OF necle STRING 
1693 104 112046 es: MOVB (RO)+,-(SP) ;PUSH CHARACTER TO BE sd ONTO STACK 
1694 007106 001005 BNE 4§ iB IF IT ISN’T THE TE 
1695 pore TST (SP)+ F TERMINA OR. POP IT OFF oT BCK 
1696 lle Ol MOV (SP)+,RO ORE R 
1697 007114 062716 000002 3$: ADD #2, (SP) steyion RETURN PC 
1698 007120 000002 RTI : 
16399 O071le2 122716 000200 4§: CMPB #CRLF , (SP) sBRANCH IF NOT <CRLF> 
1700 007126 001004 BNE S$ 
170i 007130 005726 TST (SP)+ ;POP <CR><LF> EQUIV 
17G2 O07132 104400 001141 TYPE, SCRLF ;TYPE CR-LF 
1703 007136 000762 BR es ;GET NEXT CHAR 
1704 007140 004237 007172 S$: JSR PC ,STYPEC :GO TYPE CHAR 
1705 007144 123726 001152 6S: CMPB SFILLC, (SP)+ ;IS IT TIME FOR FILLER CHARS? 
1706 007150 001355 BNE $ ;IF_NO GO GET NEXT CHAR 
1707 0071Se 013746 001150 MOV SNULL ,-(SP) ;GET # FILLER CHARS NEEDED 
1708 ;AND THE NULL CHAR 
1709 007156 105366 000001 7$: DECB 1(SP) ;DOES A NULL NEED TO BE TYPED? 
1710 007162 002770 BLT 6$ :BR IF NO - GO POP THE NULL OFF OF STACK 
1711 007164 004737 007172 JSR PC, STYPEC ;GO TYPE NULL 
i7t6 007170 000772 BR 7$ ;LOOP 
1714 007172 105777 171706 STYPEC: TSTB aSTPS ;WAIT UNTIL PRINTER IS READY 
1715 007176 100375 BPL STYPEC 
1718 pare 11667? o000d2 171700 MOVB 5{SP), aSTPB ;LOAD CHAR TO BE TYPED INTO DATA REG. 
171 06 07 RTS C : RETURN 


MAINDEC-11-DZLAE-A 
O2L 


REA.P11 


1730 


BISAIG ac) 


FAEGOASD 


ELPRTEREC SEMEN Ses 


as 


1771 007362 
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SEQ 0064 


JE HHHHEHEHHHHHHB HEHEHE HEE HHH HHH HEE 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
;*THIS ROUTINE a USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 


ROR PE fostri 


3 

STYPDS: 
020200 
000020 
oocoss 000001 - . 
007424 ’ 
000040 

2S: 
007414 

3$: 

4S: 

SS: 
000001 177777 
000060 6$ 
000040 7$ 
000010 

8S: 
177777 177776 

9S: 


VE-OR NEGAT 


R_AND TYP 
VE A SPAC 


IT. DEPENDING ON WHETHER THE 
OR A MINUS SIGN WILL BE TYPED 


THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


HSREPLAGED WITH SPACES. 
*CALL: 

MOV 

TYPDS 


NUM, -(SP) 


1(SP) .-1(R3) 
#’°0,Re 


vee 





;;PUT_THE BINARY NUMBER ON THE STACK 
33G0 TO THE ROUTINE 


tt pUsH Re ON STAC 

;;PUSH R3 ON STACK 

;;PUSH ON STACK 

;;SET BLANK SWITCH AND SIGN 
3;GET_T UT 

SSARKE THe BINARY NUMBER POS 
i ReKE THE an NEG. 


ii ceF 0 THE CONSTANTS INDEX 

;SETUP THE OUTPUT POINTER 
:*SET THE FIRST CHARACTER TO A BLANK 
33CL AR THE BCD een 


THE CONSTAN 
Hey ee ae DIGIT 
;; INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
3 3 CHECK 4 BCD DIGIT=0 


ALL OUGH IF 0 
STILL DOING LEADING 0°S? 
;;BR IF YES 
;3MSD? 
;;BR IF 
33;YES--SET THE 
;;MAKE i BCD DIGI as 
3;MAKE I IF NOT ALREADY A DIGIT 
33;PUT THIS “CHBRECTER IN THE OUTPUT BUFFER 
;;JUST INCRE 
3 § CHECK K THE T Be FNDEX 
;GO DO THE NEXT DIGIT ‘ 
$$G0 TO EXIT ‘ 
;GET THE LSD 


:3G0 CHANGE TO_ASCII 
3 HAS THE LSD THE FIRST NON-ZERO? 


NO 
t}YES--SET THE SIGN FOR TYPING 
::SET THE TERMINATOR 


MAINDEC-11-DZLAE-A 
DZL 


FPSReS Iason 8 


—_—_—— -————-— - 


mS 
—— 
be 
aes 
= 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


007424 
oo000e 000004 


$OTBL: 


$DBLK: 


NOV 


RUIWWWIW 
mo vuvuvU0U 


~VO~—~Y~ www 
+—r+++44+4 


ole mm meen 


woe 
wv 


Be: etack INTO Re 


i ae INTO Re 


Hou THE STACK 
;;RETURN TO USER 


SEQ 0065 








MAINOEC-11-D2LAE-A 
DacAES.P12 sSwert Bre 
op 

175 

33 

1786 

123] 

i793 

1233 

i535 

iS 

inz8 

1599 

i>38 

1809 

1831 

1853 

7853 

1854 

1B05 

1806 

Bsa 

ihe 

i819 | 
tei3 po7a34 Or7ENE : 
ay bee Hee fe 
e é 

igie bovdes #¢ Bboaes 
1816 OO74S6 66 

i617 Sorbo 11273? po0901 
tet Besuse Ligra? ana 
tes; Boseod Biosue 

185: Dosebe | Gtocae 

1823 007510 113704 007661 
1654 14 0084 

isss S071 62704 00006 
tee? poses tiSvaq ppreee 
i85_ Bpoess Atezee BRrbes 
1ee3 BOeGR BorToe 

tes) Boseue | Bpsane 

1832 007544 06105 

1833 07646 006108 

tese | Saves bisen3 

1636 007664 006103 

1637 OO756— 108337 007660 
1632 007562 100016 

1635 GO7EE4 042703 177770 





+ F5'Ecinal ano TWPe AdutiNe 


[RRRRERERERRER REESE ER ESEEO EERO ERDES ODED PEESEDODESSESESSSESSSSOS 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


Pa ae TS BER T9 io Crane 8 A 16-BIT BINARY NUMBER TO A 6-DISIT 


:#§7 NY ER HERE 15° SETUP slpeRess ZEROS AND NUMGER OF OIGITS TO 


NUM, -(SP) 
ne ORL F FOR TSPEQUT 
BYTE ON sitet 12 § FOR NUMBER OF DIGITS TO TVPE 


WT HHSDRE LEBOING 26906. 


5 #STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
is$ivPOs OR STYPOC 


cee 
< 
-4 
=z 


v4 MOV NUM, -(SP) ::NUMBER TO BE TYPED 

i TYPON *:CALL FOR TYPEOUT 

i #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

7 | OMOV NUM, -(SP) sNUMBER TO BE TYPED 

Le TYPOC CALL FOR TYPEOUT 

$TYPOS: MOV a(SP),-(SP) PICKUP THE MODE 
MOVE =-:1SP) SOF ILL He) “ZERO FILL SWITCH 
MOVB (SPs SOMODE+1 :; NUMBER OF DIGITS to TYPE 
B00 #2, (Sf) >:ADJUST RETURN ADDRESS 

$TYPOC: MOVB 1,SOFILL :3SET THE ZERO FILL SUITCH 
Ove #6, SONODE+1 ::SET FOR SIX(6) DIGITS 

STYPON: MO #5) SOCN ; SET THE ITERATION COUNT 
MOV R3,-(SP) +3 RQ 
MOV Ra’ -(SP) 2:SAVE RY 
MOV RS’ -(5P) :SAVE RS 


nove SOMODE*1 RY ::GET THE NUMBER OF DIGITS TO TYPE 


#6,R4 TR iy FOR MAX. ALLOWED 
MOVB RY, SOMODE 


MOVB SOF ILL. RY ib re zero an SWITCH 
MOV 12(SP) ‘RS + PICKUP THE INPUT NUMSER 
CLR R3 AR THE OUTPUT WORD 
18: ROL R Hi aotaTe MSB INTO "C™ 
BR 3 60 D 
2s: ROL RS FORM THIS DIGIT 
ROL RS 
ROL RS 
MOV R5,R3 
38: ROL R3 ::GET LSB OF THIS, DIGIT 
DEC SOMODE S}TYPE THIS DIGIT? 
= é 
BIC #177770,R3 teer RID OF JUNK 








PE 
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BINARY TO OCTAL (ASCII) AND TYPE 


ee te 


PES ES 
— 


ry ~“- 
88883 
bee 


o 
0 
~ 
oOo 
ww 
da 
3 


88888 


secant 


oo 
o—e- 


o—- —-— 
oe 


= 
sls 
oe 


ad a a aR EE 


388 
£ 
3 


Stata 
ihe fuore 


i 
E 


0 +0 + 0-- 0-0 -< <6 +0 << 0-- 0-< > =~ D-~ § ~~ 9 -- § <9 <9 
4 


Oo 


if 


8s 


+ Rese THIS 07 

‘Ag Es pes Se 

ee > 
He EP leo 

+1 SAVE FOR TYPING 

:3G0 THIS DIGIT 

;;COUNT BY 

He Ie Bg 

ieIN LAS T pik gpg’? # BLAM 

$3 0 THE 

as 

+ PEeTORE R3 

ipo: THE STACK FOR RETURNING 

? STOR 9 OR FOR TYPE ROUTINE 


7; OCTAL ier. th ‘tg 
ie OF BY 
RO Baits TO TYPE 








0-0-0 © 26 — 9-- 0 9 ~ 9 9 


lorut a usnde up 


~ 
~ 


Pe ee 
S 


é 


: 


BIRR EOC SSE CONS 
i 


8 
a 


0+ & =< 0-- 6 0+ & + 9 B= B+ 8+ 8 8 © = B= 9 -< § ~— & = &< 9-2 0 -< + 6 2 » 2 & - B— 9-H 29 
w= 


BRES 


009029 90775& 


7lele 


097754 
007754 


007756 


171184 


171150 
171142 
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) AND TYPE 





DO6 


p RRRREREREERERRRE ERASER ER SEER REAEEEEREREEEEAEEED EES ESREEE EEE EEEE 
-S8TTL ROUTINES TD LOAD CHARACTERS TO LA!&80 


SOOLPPPLIPEPILELTA LAMA LTT TSLATTATITTTTSTTADEDTTAATT DELTAS LIES STE 
;ROUTINE TO LOAD SINGLE emereieg TO LA1&O PRINTER 
;CALL: MOV Oa’ ;PUT CHAR IN RO 

iI PRINTER DOES NOT GC READY WITHIN 4.4 TO 16. 26 ete 


: (DEPENDING ON CPU AND MEMORY TYPE) THE DIAGNOSTI 
INDICATE AN ERROR - ERROR #24 - NOT READY. 


He ALL 


ILL 


$LOAD: CHECK sCHECK FOR CONTROL 
MOV #16. ,6$ :SET DELAY LOOP COUNT 
TST aLPs ;CHECK FOR ERROR CONDX 
BPL 13 > BRANCH: IF 
ERROR 24 | >PRINTER ERROR BEFORE LOAD 
er 4g iEXET 

1$: CLR S$ LEAR DELAY COUNT 

23: INC 5$ :INC COUNT 
BNE 33 : COUNT INUE 
DEC 6$ :DEC DELAY LOOP COUNT 
BNE 1$ *WAIT IF NOT RE 
ERROR 25 ERROR, PRINTER NOT READY 
eR 4g EXIT 

33: TSTB = ALPS :CHECK FOR PRINTER READY 
BPL 2s :WAIT FOR READY 
MOVE RO, aLPS LOAD CHAR 
TST aLPS :TEST FOR ERROR CONDX AGAIN 
BP. ts ?BRANCH IF OK 
ERROR 26 sPRINTER ERROR AFTER LOAD 

4§: TI ; RETURN 

S$: .WORD 0 sDELAY COUNTE 

b3: “WORD 16. :DELAY LOCP SRUNTER 















Bis ete 


QOw 


> b- b - Dd 2 — » = ~~ p< po 


OOO HDONOOW 
1 6 b= b= b= 0 = Bs pope 


Ha UR TEAS SSE RRC ee yn Gh gs it et a a 


0-20 -- 0% +0-+6 + b= 6 b+ & + 0-9 = B— Ob & + b= 0 &-° Bb = Ob -< 9 0 = oo ho bo ho = oe —- w 


iain 
£W 


MAINOEC-11-D2LAE-A 
DZLAER.Pil 


8 
a2 


FEeRRRES 


888 


= 0 
£rvuo 


OONOKHO OOOO OOOO 00RI00000 


MACY11 27(65S7) 
ROUTINES TO LOAD CHARACTERS TO LAIS8O 


poeeeg apes 
087784% 003375 
oo000e 


ce 
bo 
[ a ] 


Br 


o- 


es 


~ 
<= 


: 


8 
8 


: 


z 


O0000 oO 


cocgde 900004 





E06 
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H AAA 


site NE TO LOAD MULTIPLE CHARACTERS (NOT ASCIZ/ASCII STRINGS) 
PUT CHARACTER. COUNT IN R M{POSITIVE) 


: 
SCOPSLELIATSTTPSALLITSLTTATATTAEATATALASATAELTATTAALAAETAST STAAL AGA SSS 


a ao ‘bec count 


BT SMLOAD sBINISR LOAD 
RETURN 





SCLLALIIIPITTTATTATTATTETTESTSATATTTTTATTAT ETT ITTTITELTIAPTTTTTL LAE 
peur TQ LOAD cOnvERTED NUMBERS AND SUPPRESS LEADING ZEROS 


F ALL DIGITS ROUTINE WILL PRINT A SINGLE ZERO 
FENTER WITH ADORE Ares “oF BF ase TRING ON STACK 


SOLLLILLITTITTITLALESTELTLELTTELLITATATTATETAPTTMATTEPLPLTTLEE EDTA ESA 
S$CNLD: 





MOV RO,-(SP) ;PUSH RO ON STACK 
MOV R1;-(SP) :  pUsH Rl ON STACK 
MOV Re, (SP) ::PUSH Re ON STACK 
CLR 
MOV 12(SP),R1 :GET 
1S: Nove SRL)+, RG 3GET CHAR 
Feo Re BONE LERD NG S? 
BNE 2$ iYES, 
CHP RO, #60 “CHECK TH THIS CHAR 
Fe 43 ey FLAG I NON-ZERO 
23: LOAD AD 
38: Fe, 43 er tage ZERO? 
NE u§ 
MOV #60,R0 MES, eK ZERO 
- LOAD 
MOV (SP)+,R2 ;;POP STACK INTO Re 
MOV (SP)+'RI 33POP STACK INTO Ri 
MOV (5P)+°RO : > POP TACK INTO RO 
MOV 2(SP)"4(SP) :ADJUS 
MOV (SP)+" (SP) 


RTI ;RETURN 
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DZLAER.P11 ROUTINES TO LOAD CHARACTERS TO LA180 


HAA AAA ALAA 


;ROUTINE TO PRINT ASCIZ STRINGS ON LAteo PRINTER 
‘aL: MUST BE PINE BY NULL BYTE 


dl en or a 


a ea ak 


3 
NQONNOOOOO0OOV0002I00 


> -* 0-- 0-< b-< 6 = § -< B-- = & -< B= 9-2 b= b= p+ 9 pe 
pt: 


SPU UL TAA ALUAL ALATA LUELLA 


SPRINT: 
MOV 3 PUSH RO ON Ma 


ider Hopaese bras ASCIZ STRING 
T CHAR 


MOV 
1$:  MOVB (RI) :GE 
F TERMINATOR (NULL) 
CHECK I CRLF CODE 
;BRANCH IF NOT 


; YES DO LF ONLY 
Load Bea 
cet NEXT CHAR 


($+, R $ POP TACK INTO R 
SPs, 8 : TACK INTO. R 
Et JUST RE 
ETURN 


SaneRe 


3 
Tema 


“alts 
£ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1969 
1 
1 
1 
1 
1 
1 
1 
: 
1 


b-+ 0 0 b2 = 9-0 po be 


Poa 


0.0 
3a 





GO6 
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DZLAEA.Pil ROUTINES TO LOAD CHARACTERS TO LA180 


1380 . FL A 
198 .SBTTL PRINT TEST HEADER 
1984 ; THE NUMBER OF COLUMNS WILL ALSO BE PRINTED FOR TEST 25 ONLY 
1985 :CALL: PRTHDR 
1385 SSSSALIPTTILATETALSTIATAAEEAATTTAT TATA TALATATAAAATTAS AAA ASA AAAS AAAS ASS 
1989 010126 SPRHOR: 
1980 010126 o12746 oc0000 MOY #0,-(SP) ;;PUT NEW PS ON STACK 
1991 010132 912746 010140 Oy #64$, -(SP) ;sPUT NEW PC ON STACK 
: 10136 bosode owe RTI 3 POP NEW PC AND PS 
1994 010140 O12700 000177 MOV #177,R0 ;SET RUBOUT CHAR 
1995 O10144 104414 LOAD :CLEAR LAISO CHAR BUFFER 
199 010146 e377 001126 o1024e CMP STSTNM,SVTST | ;CHECK IF PRINTED THIS # LAST 
1997 010154 001427 BEQsi‘iéiéS *YES, PRINT BLANK LINE & EXIT 
1998 O10156 01972 011 010242 MOV _. STSTNM,SVTST | 3NO, STORE NEW # 
1999 010164 109413 01321 PRINT. *LOAD TEST # ME 
2000 010170 TE O01 126 MOV $TSTNM,-(SP) | }:PUSH S$TSTNM ON STACK 

1 gigi” 11270 ISR PC, $SB20 :CONVERT 8 

19200 1 ig *LOAD R 

2003 o10202 104413 o01142 PRINT .SLF :PRINT LINE 
2004 019206 023727 001126 900025 CMP STSTNM, #25 1S THIS TEST 25? 
200S 610214 001007 BNE 3$ =NO, SKIP COLUMN MESG 
2006 010216 013746 001130 MOV WIDTH, -(SP) :PUT & COLUMNS ON STACK 
2007 010222 904737 911120 ISR PC, $SB2D :CONVERT # 
2008 910226 104416 CNLOAD :LOAD NUMBER 
2009 010230 104413 013237 PRINT ,COLMN *LOAD CLOUNN MESG 
2010 010234 104413 OO1142 38: PRINT ‘S$LF ~ :BLANK LINE 
gol 010240 ooo0d2 45: RTI : RETURN 
2013 o1ce42 opo000 SVTST: .WORD 0 :SAVE TEST NUMSER 


HO6 
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PRINT TEST HEADER 


3A AEE EEE EE HE EE EE EE EEE HEE Ea aE 
~SBTTL TTY, INPUT ROUTINE 
pst ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ROCHE HERE 1 INPUT A STMGLE CHARACTER, FROM THE TT 


SROCHR: MOV PUSH DOWN. THE 
MOV 11 SEE oe Pe PS 

1S: TSTB :WAIT F 
BPL 1$ 738 AleRae 

MOVB SerKe 4(SP) >:READ THE 

BIC 81C<177>, 4(SP) $3GET RID i Nunc IF ANY 


RTI 
JH BSHEHHE HEHEHE HEE HEG HEHEHE HHH EHH HEHEHE HEHE 
sATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


IN ;; INPUT A ani FROM THE T 
;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3; TERMINATOR WILL BE A BYTE OF ALL O'S 


QON00000 


mai 
aSTTYIN,R3 
aSTTYINS4,R3 


Bas 


Bae 
o£co 


ae ol 


S 
3 pe TYPEOUT THE DELETED CHAR. 
READ ANOTHER CHAR. 
T KEY SET? 


as 
a 


i 
e8% 


Bx 


So 
4 oF 


e 3 
g 8 
wn 
5° 


, ia CONTROL. “U - 
#12, (R3) 3% GHAR HARAC ef a“? 


: 
0 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RRenke ROU MNASS SaaS 


SiS TuReS TUPLE SRSA THOONS 





I06 
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BOLO Pat TTY INPUT ROUTINE — ~s 
2068 010434 001011 BNE rh s3BRANCH IF NO aoe 
5384 BiSd { 001141 VBE $ RLF tt tebe 4 sori Wasa 
2071 O10444 104409 010541 TYPE TTYIN ss TYPE THE INPUT Waring 
078 p45 Br 3590 1CKUP THER CHACTER 
oS Ot ore te ve 2 pk oT wee + EAR THE BUFFER AND LOOP 
oOo Diied itiser 910532 3$ nove (R3),98 *:ECHO THE CHARACTER 
so38 seth 1 Bapete ¢ iS, (R3)+ ;;CHECK FOR RETURN 
soos SIONZE ioeee3 177777 t (R3) A eR RETURN THE 1S) 
Shag Biseas tpese baii4e eR F iif A LINE FEED 
2081 010506 005728 TST (SP )+ >:CLEAN RUBOUT KEY FROM THE STACK 
snes teats Bt MOV (SP)+,R3 3;RES 
10512 O1164 MOV (SP). *(5P) :ADJUST THE STACK AND PUT ADDRESS OF THE 
2084 010514 ot po0004 900002 MOV 4(SP}._2(SP) 3 FIRST ASCII CHARACTER ON IT 
2085 i 1 019541 900004 HOV aSTTYIN, 4(SP) arene 
Soe 1 9$: .BYT ::STORAGE FOR ASCII CHAR. TO TYPE 
Sosa pipes ea VTE OB :! TERMINATOR 
2089 O10534 o52526 oos015 000 SCNTLU: [ASCIZ 7tU/<15><12>  3:CONTROL “U" 
2030 010541 95004 TTYIN: .BLKB. 4 ::RESERVE 4 BYTES FOR TTY INPUT 


$TTyI 
EVEN 


-—- —_—— ——— .- —- - - 


SES 0074 


- 


JO6 


10-NOV-75 15:14 PAGE 54 


MACY11 27(657) 


TTY INPUT ROUTINE 


MAINDEC-11-DZLAE-A 


DZLAEA.P11 


Bitlys 

ofr, 
7. a . a 
: Eo ei :e a oz 
: yaese yo gee Z 
: oe ait ¢ ¢ . fe of 25 0 2° 
Bre ES wo SSu> =. Yo a5 5 wn 
geet 25 Sexxxtde wauilg 3g aig Tee eg ye tee 
: Sipe gl ESS Enis OoGSnem LS GB Feet #ACCO 
he: a Se Se ae eee 
PE ame es “28 aa.8 Sep 
zw a wh ee Sy WS Vt EM wee Ces hoa e 
: G9 iz inauasucsassiaans mshusiiessseesesse ss 
fe Hoty Se ; 
Scent as Soe é 
S = oWeus Cece 2 gS Me e318. Sige? 
$ £ tp reve’ sgn See ZR Y 6 Bh dees 
PR dares. § freee SevocnSEe nm sndbbbnl rnewedeae 
toe 
2 2 Zoghte ge SPPPSPPedSSeekiBidaadeeeeansasewee ees 
eo Ne a ra) 
SE reewss = 
SEG Fo sg a 


; 
S 

po 88 GbE og OG 
streamers 
SRS UR NGH aaa an Satan Oa Io Sceee 


fan han fan hae han fon han has han fan hon fon hen hon hen fan fon fon pon fan jon jan }on}on}an pas }on jon jan jon on }en}en pen en jen joenjostasl 
BOOWOOOOBHWDWOBHWOHOHOWOOONHOON80O0OO79K00000000 


PRE LIER IANS BRS BES 2 ih LORNA ARDS See Ee 


Cok em hes pea bomen, barn, haem pam Rom beams aun Tous Yan Kram Term, Remus Team, bux Trou oes fees Ten Ten Tee Tore en re en Tee Pe Pe te Tree Fre Te Fe De ee eee eet ne ee ee ee) 
MUCUCU CUCU NU CUCU CU CUCU CUCU CUCU CU CU CUCU CUCU CUCU cucu duCucucucucunicucucucucucucucucucuGm 


ee ee ees 
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READ A DECIMAL NUMBER FROM THE TTY 


MAINDEC-11-DZLAE-A 
DZLAEA.Pil 
f, 
14 p18? 005726 
148 019710 105010 
149 O1071e 104400 
isC 910714 
iS} Mths 1044OC 
elSe 010722 000720 


eo eo 


001140 


Ss: 
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(SP)+ 
(RO) 


9 
$QUES 
1§ 





;;CLEAN PARTIAL NUMBER FROM STACK 
::SET A TERMINATOR 

;;TYPE_THE INPUT UP TO BAD CHAR. 
; 20ES HERE 


‘TRY AGAIN 
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DZLAEA.P11 READ A DECIMAL NUMBER FROM THE TTY 


SHH HEHEHE HSH 
-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
; *THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN USTED 
sxDEC AL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 

MOV #PNTR mt ;;POINTER TO LOW WORD OF BINARY NUMBER 


JSR PC, ausoBe 
RETURN 3; THE FIRST ADDRESS OF ASCIZ 
:IS ON THE STACK 


o— + & <b & < 0 = oo & - oe 


HF sit REGIS ys 
000002 2(SP),R2 3 ae peer A POINTER 
011104 OF SDECVL " STRING 
0000 RO,2(SP oa ROORESS, OF Be Be aTRING ON STACK 
;3PICK BINARY 


MOV 
12 011022 #10 4s ;;SET UP TO DO 10 CONVERSIONS 
of ps4 MOV #STNPWR, RY *: ADDRESS OF TEN POWER 
011036 #STNPWR2, RS 
R3 ;;CLEAR PARTIAL 
(RH) Ri >: SUBTRACT TEN POWER 
(RS) Re 
3$ ;BR IF TEN POWER TO LARGE 
R3 : FADD 1 TO PARTIAL 
cat LOOP 
(R4)+,R1 :RESTORE SUBTRACTED VALUE 


RROD PER ADIR 


a3 


BERS 


+,R2 
(RS). (RS)+ ;;MOVE TO NEXT TEN POWER 
R *:CHANGE PARTIAL TO ASCII 
R3 {RO)+ SAVE IT 
{ (PO)+ >: DONE? 


;BR IF ” 
(RO)+ t  TERMINA TOR 


tp 2 Yo REGISTERS 
PC 3 ;RETURN 
.0E09 


oo 
bee 
Mo 


;;1.0€08 
;;1.0E07 
;31.0E06 
331.0805 
331.004 


BBVRA LG SSS SRR LOH SII Ia Paw SSH GH ewe oe Gree iH 


OO OOOO VO OOOO OO OOO OKHOOOOOOOOOKOOOOOKOOO00000 
ee ee a em 


: 
e 
e 
5 
e 
e 
e 
e 
e 
e 
5 
e 
e 
e 
e 
e 
e 
e 
e 
e 
e 
e 
e 
e 
e 
e 
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5 
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MAINDEC-11-DZLAE-A MACY11 27(6S7) 
DZLAEA.P11 DOUBLE LENGTH BINARY TO 
207 011064 001750 
08 11968 
08 0110 144 
10 011072 
sil Boe 000012 
13 Giivoy BooooL 
14 011102 000 
2215 011104 000014 
eel 
eel? 
scig 
eel 
eee0 
eel 
eee? 
eee3 
eee 
eces 
eecb 
ece? 
2228 
eee39 011120 016637 pooone 011144 
2230 Ollle6 Ole746 01114 
2231 OQll13e 004737 Ba7e4 
e232 911136 012666 O000Ce 
e233 O1114e 000207 
e234 011144 90000C 000000 





—~— ae ee - - 








10-NOV-75 15:14 PAGE $7 
DECIMAL ASCII CONVERT ROUTINE 





1750 ;;1.0E03 
Pau ;;1.0&02 
re ;;1.0€01 
i ;;1.0E00 
$DECVL: .BLKB le. ; ;RESERVE STORAGE FOR ASCIZ STRING 


SSH EHH HEHEHE HEHE HEHEHE HEHEHE HEHEHE 
~SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


; ¥THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
1 ade DECIMAL ASCIZ NUMBER. 


te MOV NUMBER, - ;;PUT BINARY NUMBER ON THE STACK 
* JSR PC, hie 3 CAL 
te RETURN *:ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
$SB2D: MOV ; SAVE BINARY NUMBER 
MOV a8 Pl 38 ET POINTER 
JSR c, iSDb20 > CALL DOUBLE LENGTH CONVERT 
MOV ss eine OINTER 
RTS *RETUR 
13: . WORD a 6 


NO6. 


NAINDEC-11-DZLAE- MACY11 27(657) 10-NOV-75 15:14 PAGE SB SEQ 0078 
DZLAEA.P11 SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 
2235 ‘ ; FETT TTT TTT TTT TTT TT TT TTT TTT TTT TTT TTT TT ETT TT TTT TT TTT TT TTT TTT Ty 
ti -SBTTL OOUBLE ;LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
2239 ;*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
2240 j HUNSTGNED OCTAL: ASCIZ NUMBER. 
Bate + MOV #PNTR, -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
3 : 1% JSR PC, a#$DB20 ::CALL THE ROUTI 
eed :% TURN THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
sous 011150 104410 $DB20: SAVREG i+ SAVE ALL REGISTERS 
2248 011152 016601 oo000e2 MOV 2(SP).R1 *PICKUP THE POINTER TO LOW WORD 
eev3 011156 Ole705 Dick? MOV wSOCTUL+13. , RS POINT R TO DATA TABL 
SO O11162 012704 O00014 MOV #12. ,R ;DO ELEVEN CHARACTERS 
2251 011166 012703 1 MOV ate? fi 
eeS2 011172 012100 MOV (RIS$,RO ire! WORD 
ee53 011174 01 MOV (R1)+;R1 > :HIGH WORD 
S5er Ot tSOB Tt Is: Move SRS) PUT CHARACTER. IN DATA TABLE 
soer Bt ise Atte 3 MOV RO.Ro *:GET THIS DIGIT 
2257 011204 O05 DEC R 3 § COUNT TH S CHARAC TER 
eee 011206 GT ;3BR THE LAS is 
011210 001405 EQ 2 -BR. ee IS THE LAST DIGIT 
2260 Ollele oos20s INC RS :ALL DIGITS DONE-ABSUST POINTER FOR FIRST 
2261 011214 010566 oooD0e2 MOV R5,2(SP) *:ASCIZ CHAR. & PUT IT ON THE STACK 
Peb2 O1l220 104411 RESREG RESTORE ALL R 
2263 Olleee o00207 RTS PC *:RETURN T 
2264 Olie24 O06203 2S: ASR R3 >:POSITION THE MASK FOR THE LAST DIGIT 
2265 Olle2 006001 33: ROR Ri js POSITION THE BINARY NUMBER FOR 
2266 011230 O06000 ROR RO THE NEXT OCTAL DIGIT 
2267 Olle32 O06001 ROR R1 
2268 011234 ROR RO 
2269 011236 O06001 ROR Q1 
2270 011240 ROR RO mS" 
2271 Olle4¥e o40302 BIC R2, Re - $3;MASK OUT ALL JUNK 
2272 011244 O62702 o00060 ADD #0, Re s3MAKE THIS CHAR. ASCII 
2273 Olleso 000753 BR 1$ :GO PUT IT IN THE DATA TABLE 
2274 Olle52 OO0016 SOCTVL: .BLKB 14. ;;RESERVE DATA TABLE 





Dray 0123314 






BO? 





ser age Eben SE ee 






7 PHSPRSSSSSS REESE EF ESSE EEEEEESSESES SEO 0 TEED ESE9 SEF EEE SEEEESFEOS 


-SETTL SINGLE LENGTH BINARY TO OCTAL ASCIZ ROUTINE 
fan ROUTINE WIL! A 16-817 G NARY NUMBER TO &N 
: sic oneh Oy Tk cf each 16-817 UNSIGNED 81 NUMBER TO 


2 NUMBER. 
My NUMBER.-(SP)  ;;PUT BINARY NUMBER ON THE STACK 
:* is PC, 38$5820 srCALL ea 
:* TURN *ADORESS OF 1ST ASCIZ CHAR. IS ON THE STACK 


$820: ad 2 3; SAVE mi at NUMBER 





(SP) 18 
Vv 81$,-(SP) 33967 P IN 
JSR PC. 3a$0820 ::CALL DOUBLE LENGTH CONVERT ROUTINE 
MOV (SP)+,2(SP) srk POINTER 
RTS F 
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MAINDEC-11-DZLAE-A 
< . LENGTH BINARY TO 


‘yi 


RERLES 2928S 


# 


++ += 6 - b=» < 0 — 0 9 - & ~ b= 8 -- & 
£ 


o~ b-- © 0 b= 0 b= & 2 b— 9 b-< 9-2 6 9 


YONOONAONOOOV0O0O0000 


Ww 


~- 
000 NOP ££ lITue~O 


rurururururorurururururu 
intent satetet =! 
> 0 &-— 62 § <0 p= B= p< po Be 


iS 


SaaS 


YQOOOVOOOVOVOINO0R000 





07 
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OCTAL ASCIZ ROUTINE 


5 RRRERRREARREREEEER AREER SEAL EERE SEER EERE REESE ASSAD ES ESSE EE ESSE 
.SBTTL TRAP DECODER 
poy ROUTINE Wie ari THE LOWER BYTE OF THE “TRAP” INSTRUCT 


108 
SS0F THE DESIRED ROU ROUTINE. Gr THEN USING THE ROORESS OBTAINED {Tull 
460 TO THAT ROUTINE 


STRAP: MOV 2(SP).-(S5P) 3; ASSUME. THE STATUS OF 
BIC #20, (SP) 53 i, CALLER--DONOT ALLOW 
MOV #1$;-(SP) 
RTT SET THe NEW STATUS 

18: MOV RO, -(SP) 
MOV. e( P),RO ve TRAP ADDRESS 
TST ete ay r 
MOVE fo ag :GET RI VTE OF TRAP 
CMP TERN, RO :: CHECK OR T OF BOUNDS 
BGT ;3;8R IF OK 
HA T . 330UT OF BOUNDS 
ASL RO - HHPOSItION FOR INDEXING 
MOV $TRPAC(RO) RO INDEX T9 TABLE 
RTS RO ::G0 TO ROUTINE 


.S8TTL TRAP TABLE 


s #THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;#BY THE “TRAP” INSTRUCTION. 


ROUTINE 
$rrpap 

TYPE s:CALLSTYEE - Trae 0) TTY TYPEOUT ROUT 

TYPOC 3} TRAP+1 (1 TYPE OCTAL NUMBE NE ITH LEADING ZEROS) 

TYPOS 3;CALL=TYPOS TRAP +8 104 o3) TYPE OCTAL NUMBER (NO LEADING 

TYPON ::CALL=TYPON  TRAP+3( 104403) (AS LAST ALE} 

STYPOS ss CALL=TYPDS TRAP+4( 104404) TY’ R (WITH SIGN) 

SROCHR :;CALL= TRAP+5(1 TTY TYPEIN CHARACTER ROUTINE 

SROLIN ::CALL=RDLIN  TRAP+6(104406) TTY TYPEIN STRING ROUTINE 

SRDDEC :;CALL=RDDEC § TRAP+7(104407) READ A DECIMAL NUMBER FROM TT 

SSAVREG ;:CALL=SAVREG TRAP+10( 104410) SAVE RO-RS ROLTI 

SRESREG ::CALL=RESREG TRAP+11(104411) RESTORE RO-RS ROU INE 

SPRHDR ::CALL=PRTHOR TRAP+12(104412) PRINT TEST R 

SPRINT :?:CALL=PRINT TRAP+13(104413) PRINT ROUTINE - 

SLOAD ;;CALL=LOAD TRAP+: 4( 104414) LOAD CHAR ROUTINE 
*:CALLSMLOAD  TRAP+I1S(10441S) MULTIPLE CHAR L 

SCNLD :CALL=CNLOAD TRAP+16( 104416) LOAD CONVERTED NUNS 

SCHECK 5 CALL =CHECK TRAP+17( 104417) CHECK FOR KYBO OR SW REG CONTROL 
:CALLSHOLD TRAP+20( 104420) WAIT FOR OPERATOR ACTION 


L 
STERM=. -$TRPAD 












MAINOEC=-11-DILAE-A 


DILAEA.P1i 
45 
9 
Siew 
2B a bs 
eS GS 
see 011464 1 
te 
356 11478 900050 
5369 011500 000778 
5361 
5325 o1isoe 013706 
sare giteye | poeoss 
Saee Bitele Boeesz 
S3cg press piseod 
Saeg Sitesg SiSeSs 
5370 011596 012602 
5371 011530 015601 
eave lisse 012600 
e373 GLEN Dle7a7 
5374 O1leve 015737 
Be ee 
5377 o1ise4 00002 
5378 911558 900000 
5375 911560 900776 
Qilse2 oo0cc 


011556 
000340 


MACY11 é€7 (657) 
TRAP TABLE 


000024 
C0OSe26 


000024 
000026 


DO? 
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Ae ririiiiiiitttttrtrrtitiiiiiitttttttiititiittttttrii ity) 
~S8TTL POWER DOWN AND UP ROUTINES 


“POWER DOWN ROUTINE 
$PWRON: Hoy BSILLUP, JHPWRVEC ;:SET FOR FAST UP 


#340, DHPWRVEC+2 ;:PRIO:7 
Tet tT EUEH AY ON STACK 
Ra. s3PU R SN TACK 

MOV R3,-(SP t R3 TACK 
MOV RY, -(SP) ;:PUSH RY ON STACK 
MOV RS; -( :} RS ON STACK 
MOV SP’ $S 3} SAVE se 
HOV SSPWRUP, J8PWRVEC’:;SET UP VECTOR 
BR 2 :;HANG UP 

-POWER UP ROUTI 

S°WRUP: MOV ‘Esavre, SP :;GET SP 

is: fe SSaVRE iMatT FOR THE ING’ 
ENE ie s3 WORD 
MOV (SP)+,R5 ::POP STACK INTO RS 
MOV (SP)+,R4 3;POP STACK INTO RY 
MOV (5P}+'R3 ::POP STACK INTO R3 
MOV (SP)+'Re ::POP STACK INTO Re 
MOV (5P)4'R1 ::POP STACK INTO RI 
MOV (SP)+'RO ::POP STACK INTO RO 
MOV SSPWRON, ISPWRVEC’: 


-SET UP THE POWER DOWN VECTOR 
MOV 8340, JPWRVEC+2 ;:PRIO:7 


TYPE ;;REPORT THE POWER FAILURE 
SPWRMG: ,HORD PWRMSG ;;POWER FAIL MESSAGE POINTER 
SILLUP: HALT 33; THE POWER UP SEQUENCE WAS STARTED 
R 2 3; BEFORE THE POWER DOWN WAS COMPLETE 
SSAVRE: 0 ;3;PUT THE SP HERE 











POWER DOWN AND UP R | 
HAA 
= .SBTTL TEST ADDRESS TABLE 
: THE PRINTING re aereie STARTS WITH TEST2O 


2 PROGRAM 
a SOR RETR TELS GETIES or ne mvt sen 
390 


se a ee MACY11 yf 10-NOV-75 15:14 PAGE 62 
DZLAEA. TINES 


EEL 
TAT: 


see 


FT RORERBS Ie 


rood 
Ses 


+3000 


WE SAG Re 
WMDNOUI CWO 


RE 
PER DOES ECSRORBR IRE 


e4 
a 
e4 
5 
es. 
e4 
24 
24 
24 
24 
e4 
24 
e4 
Babs 


e 


DOVOOVOOOVOVOOVVOOOOOOOOVOOOVOOOOVOOOOOOOOOO000000 
~“N SS Se 
Sense we 


0-2-2 28 = 9-2 b= &  & 2 b= bb B= b= OO = = 8 = 0 + = OB 0 = 0 bb 0 = 0b 0 0 9 = 0 = 
+ 0-2 — B-° Bb 8 —= O— 6 b= & B= + = = 0 = 0 6 0 = BF = = = > 2 = 0 0 0 9 = 0 = 0 b= 0 = & * 0 0 


OQOOO0OBEO00000000 |! 


; TESTS2 


™“ 
- 
oOo 
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TEST ADDRESS TABLE 


el 
Ts 
fu 


~“S 


RoR DNSECSeOREO PRE 


sTeaTa 


iTEstes 


b= > B= B= § - b— b= & = b= 6 = bb > = & * =  p p 


SCOFSLIATAATTLTATAELTATALLATATLTA LSAT AALATTPHETTTDATLAEL SETA EAL EASES EAA 


-SBTTL ERROR MESSAGE ADORESS TABLE 
SSLSPTILALITALITTLELTTLOLTTSTEETLIATALTTTETTTAELELTTAAT ELATED LESSEE 


EMAT: 


: 
2 


Siristeinietst SAR 
tw rT rm 
Noe SER ae 


283 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


| 
| 


$= + b= b= bb 6 =< b ~~ 0-2 & b= Ph 


Poa 


LS 
Hoe 
























MAINDEC-11-DZLAE-A MACY11 27(657)_ 10-NOV-75 15:14 PAGE 64 
OZLAER.P11 ERROR MESSAGE ADDRESS TABLE 






ae SAPILILITILITATTTTT LALA TTA LTIA LAAT AT AAA EADASDAAAA 
88 .S8TTL ERROR MESSAGES 
asc SASPAASSLASATLILLASTITTTTTTATATAAEAATAATAAATLAAAE AAAS AAAS MESS SSAA SSA 
e492 012040 051105 .047S22 020122 ERRI: .ASCIZ “ERROR CLEAR, POWER OFF/ 
2493 D120%6 046103 cay 926122 
Suse pictPs Badadg ihe ; 
gua 012087 ize 940505 OS4YSO4 ERR2: .ASCIZ /READY SET, POWER OFF/ 
$36 ist Be 5103 122 
ell gyaii2 O06 
2500 O1e114 OS11 @ 020122 ERR3: .ASCIZ /ERROR CLEAR, PRINTER OFF LINE/ 
Su his meme fees Geel 
e503 012136 051105 04 3106 
2504 tela 7111 605195 
gous 1 158 gee 2th 131 ERR4Y: .ASCIZ /READY SET, PRINTER OFF LINE/ 
121 124 OS50040 
Sena OLSiSs BNTEaS DRSTOe paeeNe 
2509 Olecde eta 000105 
e210 O12206 051108 bu7oee b20188 ERRS: .ASCIZ /ERROR SET, PRINTER ON LINE/ 
2512 Olee22 O44Se2 OSell6 051105 
Si hee bee og SON 
2515 Olee41 -«l22 «O4OSOS OSYSO4 ERRE: .ASCIZ /READY CLEAR, PRINTER ON LINE’ 
e518 012246 041440 O42514 051101 
2517 012254 020054 051120 047111 
2518 Ole262 O42524% Oe0le2 047117 
2519 012270 O4604O 047111 9000105 
e520 bice76 051105 rece Gebiee ERR7: .ASCIZ /ERROR CLEAR, PAPER OUT/ 
5255 este bepana Sat BET toe 
2523 O1e320 O47440 052125 000 
2524 Dieses 122 p40505 Os4504 ERRIO: .ASCIZ /READY SET, PAPER OUT’ 
2525 012332 O51440 O0Sel o0s4 
5258 ass eet beoeT? B08 Sy vanes 
2528 Ole3se bei ids Bayes 020122 ERR11: . .ASCIZ /ERROR DID NOT CLEARY 
2529 012360 O44504 O20104 047516 
eu tien gai “le 
12376 2101 020131 ERRI2: .ASCIZ /READY NOT SET AFTER ERROR CLEARED’ 
5235 Oisdon ONDeTE elt each 
SS feu tense erie boss 
Se tiem Geese fin) Ses 
2532 bia Ost 0s gu7oee 020122 ERRI3: . ZERROR SET AFTER RESET INSTR/ 
25339 Ole446 O4252 Ole4 043101 





“NO PRINTER INTER BELOW LEVEL 4/ 
/PRINTER ERROR BEFORE CHAR LOAD/ 


“ 

a 
= 
w 
= 
=) 
- 
ul 
w 
ty 
qe 
er 
uJ 
- 
« 
& 
uJ 
Oo 
> 
@ 
& 
_ 


“ERROR SET AFTER CHAR LOADED/ 


“READY CLEAR, INTERRUPT TEST/ 


/PRINTER NOT READY/ 


-ASCIZ /READY SET AFTER CHAR LOADED/ 
-ASCIZ /READY NEVER SET, CHAR LOADED/ 


-ASCIZ /PRINTER INTER ABOVE LEVEL 3/ 


-ASCIZ 
-ASCIZ 
-ASCIZ 


10-NOV-75 15:14 PAGE 65 
ASCIZ 
-ASCIZ 
ASCIZ 


ERR20: .ASCIZ /ERROR SET, INTERRUPT TEST/ 


ERR21 
sce: 
ERR23 


ERR1Y 
ERR1S 
ERRIE: 
ERR17 


Nao Cu- 


Suu 


+ oe be pe 
sage eeuesia mndemanraaeg oS pea 
Notes os We ae eee 
Beaertnad a eereiort Co raes aeeonieremeerenten 


GURU TURE U RUE UU CEU UU UU UUUGUUI IOI 
QOIOWWWOOWOWOWOWWWVOWOWWWOIOWHWOWKW0ON0NOHONOW0OWHW0000000000000000000O 


Teco OCCA CO IOC OM ORCKIOCMRRRCRCCORR 


O44S22 052116 ERReS: 


-DZ2LAE-A MACY11 &7(657) 
ERROR MESSAGES 


ll 


MAINDEC- 
DZLAEA.P11 
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DZLAEA.P1 ERROR MESSAGES 


ERR26: .ASCIZ /PRINTER ERROR AFTER CHAR LOAD/ 


SCOPES AILATLTPLLALTITLTTATITITATTATTSLTATAPATTAT ATTA L AAA AT ETAT TASS 


-SBTTL PROGRAM MESSAGES 
SOLISITELTITLTTTLTTATLALTIATTTTTTTSLIATTEPTSTETIT ETI DPLL AAD A LESS 


OO43 O47503 COLUMN: .ASCIZ <CRLF>/# COLUMNS = / 


aaa AS 


SSeS A MEA AAS AEAA ACEO Lt! 
2% 


31 200 
seid 3 052514 047115 O20le3 
sei 3 368 O04 O42S14 SELTST: .ASCIZ <CRLF>/SELECT TEST ® / 
2613 Ol3e0e 052103 052040 051505 
2614 013210 020124 920043 
2615 te} 000 
spis Ole 1 Give TSTNO: .ASCIZ <LF><LF>/TEST NUMBER / 
1 peor 1 111 
2618 ll 
2619 O41 COLMN: .ASCIZ / COLUMNS/<LF> 


000 
046117 
000012 
020124 ETSTNO: .ASCIZ <CRLF>/TEST #7 
036503 PCMSG: .ASCIZ /’, PC=/ 
GL 10S ERR: -ASCIZ 7, ERROR #/ 
051523 


ERRS: .ASCIZ /, / 
PASMSG: .ASCIZ <LF>/END OF PASS #/ 


SSSR aie 


cease 


a 
2 
oe Bae R 
ee Z ae : Bae 
g 
E 


3310 O4e4l2 
3316 
3324 
3330 DSMSG1: .ASCIZ <CRLF>/SUR = / 
3336 O00040 
3340 e00N0 OS3S05 DSMSG2: .ASCIZ / NEW = / 
33c8 OWOs2? OSel11 O¥7111 WTNSG: .ASCIZ /MAITING, TYP SPACE TO CONTINUE/<CRLF> 
Sea? Dissee Gebien OS0123 ON1e01 
238 013374 e010 047524 01440 
2639 013402 047117 O44524 052516 
2640 O13410 100105 000 Ses | 
2641 O1M13 403 OY0S10 20122 TCHAR: .ASCIZ /CHAR = / 
S43 O13453 200 ON7SED ON2S27 PWRMSG: .ASCIZ <CRLF>/POWER/<CRLF> 
ss 
Sug 13936 100[22 BOD | 
2645 013433 _ Ole 047516 O4I44O NCMSG: .ASCIZ <LF>/NO CONSOLE TERMINAL/<LF> 
2646 O13440 047117 047523 O42514 
2647 O13446 OS2040 051105 O44515 


SEQ 0087 
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PROGRAM MESSAGES 


MAINDEC-11-DZLAE-A 


DZLAEA.P11 


/PUT SWITCH 12 UP TO START TIMING/<CRLF> 


-ASCII /PRINT SPEED MANUAL TIMING/<CRLF> 


-ASCIT 


MANMSG: 


RE POR pers 
See Fae j G tare 


Ges Bes 


—— 


-ASCIZ /PUT SWITCH 12 DOWN AT END OF 1 MINUTE/<CRLF> 


SHS 


= Fo ot 


SRz 


<CRLF>/PRINT SPEED IS / 


-ASCIZ 


B0040 


a8 
aa 


a: pata PRSP1: 
pies 


SAB 
a 


oO deae Potystanense ss 
sieetnrenremennien 


HAMAVOOOMOBOOOOGOOIIMI GOOG OIG IGIOVGIOGT FETT Tae TTT aT, 
QOOWOOWOOWWHWIOWWWWOODOWOWOWOOWOWOWABOWQHWWWHOOKWOOHO0000000000000000 


seneaeneee 


PF RinAainininunen 
pain ear 


<, - 
co S 
S - - 2t. - 
oh eee bear ad Bole 
“~~. oe Ss & 3 ~ 
oR ieee 2 ee Bee 
> = & FS £ee sos 
~& & -« c & & te 
x» 2 3 g = tn 
e5 § = PO A rhe Tie 
2 {0 ae Se 68 S S 
NN NON NON N N 
Pires tae be bk bp - 
3 3 
ays hg ba 0s ee 
~~ +1 —WO oon OenrTr Zz cums 
S sopees aries GEES S888 BSR 
Sere 242° Bas 2ea5 Bass ose 
pean? z So 
Ss 
3 


Se 
a calendaus gene Seago 
ZU IRRE MNRAS DEAE ARERR PED IRN ES 


SAOGUON rr res nrns naman ncns 


ee + 


/SET FORM FEED SWITCH TO / 


n~ 
Qe 
Q 
w 
> 
] 
4 
t 
] 
a 
Qa 
{vv} 
iJ 
ire 
= 
ge 
Oo 
uw 
S 
- 
‘ 


-ASCIZ 7 INCHES 8 DEPRESS TOF RESET SWITCH/<CRLF> 
“NO METHOD OF TIMING AVAILABLE/<CRLF> 


% 
4 
t 
4 
4 
i 
“ 
mM 
- 
oO 
w 
Le 


-ASCIZ 
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-ASCIZ 


TIMSG3: 


iss 
cao tere a8aas 
i eo 


Z AAMT PEIRCE ANAT URES E NS SR 


7111 O44103 TIMSG4: 


S40 042040 


O264SS Oe00SS TIMSGI: 
117 O42515 TeENM: 


MACY11 27(657) 


PROGRAM MESSAGES 
Bwveis Ouzsie 


02 


7333733373372 FFFFFF 
| ct ieee Date dean eat deems ieee ame hae ban eam Ioan ham ame iam ham boas ham Seam Kam) 
AQOOOOOOO0OO000000000000 


CaGhRRRRRGRRRRRSRS SONG NS 


MAINDEC-11-DZLAE-A 


DZLAEA.P11 





LO? 
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DZLAEA.P 11 SYMBOL TABLE 


= T = T = 000 T = 0 
= TOY = 4 BH : 2 BDoos6 BiTbe s ie 
ee ee ee 
= TIS = T2 = 000004 13 = 
BitdY = papras Bites = Anon Bite = Boned BHT? = Bape 
BITS = OOO4OO BITS = 001000 SPTVEC= OO0014 CHECK = 
Si ae a ae ne gee 
€SBR  OO111€ OCI 005430 ODISP = 177570 DISPLA OO1ie4 
SISPRE 000174 OSMSG1 013330 OSMSG2 O1334C DSWR = 177570 
ENT 011764 EMTVEC= 000030 ERR 013271 ERRS 013304 
VEC= 000004 ERRI1 12040 ERRIO Ole3e5 ERRI1 012352 
ERRic | idee ERRT? — biSeeo ERR ute? ERRoA  15ee9 
Emel Olertt «= Eee Sigrie §=— Elves ison EN O150H0 
ERRES 813556 ERRE 012241 ERRS pisst? ETSTNO 01325 a. 
RYaDF  BoeBie KYBDST Obbe70 > boogie UKs DOTTED : 
KKeRY  DOSaaD (OAD = 100914 tps” OOtiiS the BOLL ’ 
013461 MINCNT OOS464 = 104415 NCMSG 013433 - 
PASCNT 005106 PASMSG 013310 =%000007 PCMSG 013262 z 
PIRQ = 177772 PIRQVE= PLKS  O01114 PRINT = 104413 t 
PRSP1 013623 PRSPe 013644 PRSP3 613655 PRSPY 0137 ¢ 
at tt PRG = gobeUg BRe = goood PRE = OOb8 ; 
PR? = O00340 PS ss 177776 PSil = 17777 PWRMSG 01342 ‘ 
PURVEC= = 104405 RDDEC = 10440 RDLIN = 104406 : 
REPORT 006672 RESREG= 104411 RESTRT 001170 RESVEC= 000010 2 
RO =00 RI = 000001 =/-0000 Rg 5700 ; 
> — TST SP =%00 ; 
Spee Absiag Saber. abedee Sehtel Baal Srart ~ polis 7 
STARTX 001206 STKLMT= 177774 STRONE O01132 SvTST 010242 : 
ayo. = BoddnS ayes” = OOnGS = Sp001 ewos = Qo00eD 
Swos = 900040 SHOE = 000100 SHO? = 9002 Ko = 000409 ; 
3 3 = 010000 ait3 = 02 outs = Bose ate =e no0 
Swe = 00004 SW3 «= 000010 Sw4 = 000020 SWS = OOOO4O 
Sw6 == OO0100 Sw? = o00200 SW8 = OOO400 Sw3 = 001000 
011564 TBITVE= OOOO14 TCHAR 013413 TERR 005420 
TO 001720 Tl Test2 002716 TEST20 003250 
TEST21 03316 TeSTe2 003426 TEST23 003514 TEST24 003550 
T 2 TEST26 4OO44e4 TEST27 OO04SI16 TEST3O 004634 
OO a i ee it a 
TLOOP 001134 TORTN 005462 TP8 001106 S 0011 “ 
C = 000064 TRAPVE= 000034 TRONE 001133 TRTVEC= 000014 
TSEL 006336 TSTNO. 013217 TYPDS = 104404 TYPE = 194400 
TYPOC = 104401 TYPON = 104403 TYPOS = 10440 TOMSGO 01372 
TOMSG1 013761 TOMSG2 O14O04 TOMSG3 01404 TOMSGH O1407 


1 Ol 
TIMSG1 014132 TIMSG2 014141 TIMSG3 014170 TIMSGH Ol4e2e 


re ee - 





MO? 


MAINDEC-11-DZLAE-A MACY11 27(657) i0-NOV-75 15:14 PAGE 70 SEQ C090 
DZLAEA.P11 SYMBOL TABLE 
T 14267 3034 WIDTH WIMSG 013352 
1136 gcvecx Boe 05724 ag Sen U 10534 
C 1144 Be Bri in ig 10 
$0820 011150 SOOAGN piroe Toke 007414 
ERROR 066 Sr 0114 SLCC O11 
Sits 001151 $ 004746 $HD = 00 D 005764 
SILLUP 011556 SITEMB 006670 SLF 001142 QAD O07662 
re ppt 130 SOCNT 7656 S$OCTVL OlleSe 
76 e $PR Oleb SPRINT 010062 
SPWRON 011434 SPWRMG 011552 $PWRUP 011502 $QUES 00 
Roce pepe ne 46 $ROLIN 0103 acpeh = 
SRE 007032 $SA 74 $SAVRE 011562 $SB2D 011120 
$SB20 6011270 SSETUP= 000034 $STUP = 177777 $SVPC = 
= jpetos Uy = e $TKB 001102 $TKS 
N = TNPWR 011034 $TPB) 001105 STPFLG 
1104 STRAP 011320 TRP_ = 000 $TRPAD 011372 
st TNM 00 Ai $TTYIN O1054 A $TYPOS 907210 STYPE 70 
TYPEC 00 oe e STYP thee: STYPON 007474 $TYPOS 007434 


ERRORS DETECTED: 0 


*DZLAEA, DZLAEA/SOL+DZLAEA 
RUN-TIME TIME: 3 S123 0 SECONDS 
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0 tuntineg IC | ut ead disk writes, O 
. WP oer uy ee we ee POM ; 


+... = wor SE 
CRUG CCC CETTE CCE TCC eee eee ee eee eee 
“ 





aed 
; 


> Ain A Ain aia 
Cebaenee 
o* - 


fd 
OF ee Oe ee ee ee ee ee Oe ee ‘ ¢,?¢,¢ '.f.* 
enegriaaer or PETERS E eee AOOOODOOL ieee 
=l-lelel~ pegggqqqqqaqcoaac 


PO0000001 11111111 leeeeeeeeee3: S444 4444SSSS5S555 





